From 16d4ddd12a937b9f73e9e3c918121cdbe5b1e514 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tobias=20Schl=C3=BCter?=
 <tobias.schlueter@physik.uni-muenchen.de>
Date: Sun, 12 Jun 2005 17:42:14 +0200
Subject: [PATCH] * gfortran.dg/forall_1.f90: XFAILed.

From-SVN: r100859
---
 gcc/testsuite/ChangeLog                | 2 ++
 gcc/testsuite/gfortran.dg/forall_1.f90 | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 929900e1188a..72c1e8811a32 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 35fcfdd7fd2e..e425c4cd4119 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
-- 
GitLab