diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8871d5bc6dd63ccf3313710280e13278c91a5c37..54fc16042a5f351b8f11c6bf5393e09eee77e077 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 75a528bb47f79f75f24f511fb4a1a76819004b8e..0dbcf631e4bc184a931ebcd28ab715583943843f 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