2008-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/25829 28655
	* gfortran.dg/write_check2.f90: Update dg-error.
	* gfortran.dg/io_constraints_1.f90: Udate dg-error.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133991 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6fc0cc1..f148ed5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2008-04-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/25829 28655
+       * gfortran.dg/write_check2.f90: Update dg-error.
+       * gfortran.dg/io_constraints_1.f90: Udate dg-error.
+
 2008-04-07  Jason Merrill  <jason@redhat.com>
 
        PR c++/35734

diff --git a/gcc/testsuite/gfortran.dg/io_constraints_1.f90 b/gcc/testsuite/gfortran.dg/io_constraints_1.f90
index 05f52fa..5f2c776 100644 (file)
--- a/gcc/testsuite/gfortran.dg/io_constraints_1.f90
+++ b/gcc/testsuite/gfortran.dg/io_constraints_1.f90
@@ -62,7 +62,7 @@ end module global
 !Was correctly picked up before patch.
  write(1, fmt='(i6)', eor = 100) a              ! { dg-error "EOR tag" }
 !Was correctly picked up before patch.
- write(1, fmt='(i6)', size = b) a               ! { dg-error "SIZE=specifier not allowed" }
+ write(1, fmt='(i6)', size = b) a               ! { dg-error "SIZE= specifier not allowed" }
 
 
  READ(1, fmt='(i6)', end = 900) a               ! { dg-error "not defined" }

diff --git a/gcc/testsuite/gfortran.dg/write_check2.f90 b/gcc/testsuite/gfortran.dg/write_check2.f90
index 52f32bb..1447f8d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/write_check2.f90
+++ b/gcc/testsuite/gfortran.dg/write_check2.f90
@@ -4,7 +4,7 @@
   character(len=20) :: str
   write(13,'(a)',advance='yes')  'Hello:'
   write(13,'(a)',advance='no')   'Hello:'
-  write(13,'(a)',advance='y')    'Hello:' ! { dg-error "ADVANCE=specifier at \\(1\\) must have value = YES or NO." }
-  write(13,'(a)',advance='yet')  'Hello:' ! { dg-error "ADVANCE=specifier at \\(1\\) must have value = YES or NO." }
-  write(13,'(a)',advance='yess') 'Hello:' ! { dg-error "ADVANCE=specifier at \\(1\\) must have value = YES or NO." }
+  write(13,'(a)',advance='y')    'Hello:' ! { dg-error "ADVANCE= specifier at \\(1\\) must have value = YES or NO." }
+  write(13,'(a)',advance='yet')  'Hello:' ! { dg-error "ADVANCE= specifier at \\(1\\) must have value = YES or NO." }
+  write(13,'(a)',advance='yess') 'Hello:' ! { dg-error "ADVANCE= specifier at \\(1\\) must have value = YES or NO." }
   end