PR fortran/25829 28655

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.

From-SVN: r133991

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6fc0cc1f98ba15196ccde4a7ceb0948fb99a5fe0..f148ed5d013f511c87b5ecebb53caa394f2dd1e3 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 05f52faae7651cf70d3cdf170565e6d7561b3aa8..5f2c776b12876332cd86fe9cc1e1b25f75694bc5 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 52f32bb121c88099f51b34498c6ac9607984b8b1..1447f8d14f915ff175a056fb9c70cf79554e92b0 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