From 0f8417e9b52f36614455fd9db4e7dff6c851a00c Mon Sep 17 00:00:00 2001
From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Mon, 4 Jul 2005 18:46:43 +0200
Subject: [PATCH] * gfortran.dg/io_invalid_1.f90: Fix expected error message.
From-SVN: r101602
---
gcc/testsuite/ChangeLog | 4 ++++
gcc/testsuite/gfortran.dg/io_invalid_1.f90 | 2 +-
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8871d5bc6dd6..54fc16042a5f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005-07-04 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ * gfortran.dg/io_invalid_1.f90: Fix expected error message.
+
2005-07-03 Andrew Pinski <pinskia@physics.uc.edu>
PR testsuite/22288
diff --git a/gcc/testsuite/gfortran.dg/io_invalid_1.f90 b/gcc/testsuite/gfortran.dg/io_invalid_1.f90
index 75a528bb47f7..0dbcf631e4bc 100644
--- a/gcc/testsuite/gfortran.dg/io_invalid_1.f90
+++ b/gcc/testsuite/gfortran.dg/io_invalid_1.f90
@@ -1,5 +1,5 @@
! { dg-do compile }
! PR fortran/20842
-WRITE(UNIT=6,END=999) 0 ! { dg-error "END tag .* is not compatible with output" }
+WRITE(UNIT=6,END=999) 0 ! { dg-error "END tag .* not allowed in output statement" }
999 CONTINUE
END
--
GitLab