diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 929900e1188aacb49baddee3dc7b849901762c39..72c1e8811a32cc08f086dcce2ce49fba2024f1fc 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -2,6 +2,8 @@
 
 	* gfortran.dg/f2c_7.f90: New test.
 
+	* gfortran.dg/forall_1.f90: XFAILed.
+
 2005-06-12  James A. Morrison  <phython@gcc.gnu.org>
 
 	* gcc.dg/pr14796-1.c: New.
diff --git a/gcc/testsuite/gfortran.dg/forall_1.f90 b/gcc/testsuite/gfortran.dg/forall_1.f90
index 35fcfdd7fd2e0653b43e64bc5d47e6ae89ffb545..e425c4cd4119a625e895951e067f3e8c019208dc 100644
--- a/gcc/testsuite/gfortran.dg/forall_1.f90
+++ b/gcc/testsuite/gfortran.dg/forall_1.f90
@@ -1,5 +1,6 @@
-! { dg-do run }
+! { dg-do run { xfail *-*-* } }
 ! tests FORALL statements with a mask
+! unfortunately, this is broken, PR 22038
 dimension i2(15,10), i1(15)
 type a
    sequence