From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sun, 12 Jun 2005 15:42:14 +0000 (+0200)
Subject: * gfortran.dg/forall_1.f90: XFAILed.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=16d4ddd12a937b9f73e9e3c918121cdbe5b1e514;p=gcc.git

* gfortran.dg/forall_1.f90: XFAILed.

From-SVN: r100859
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 929900e1188..72c1e8811a3 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 35fcfdd7fd2..e425c4cd411 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