diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-04-07 22:10:41 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-04-07 22:10:41 +0000 |
| commit | 7286c376998c9b9d1a6eab0cf61ab983c8286b2e (patch) | |
| tree | 4c5c97d9cb7f14e75d05eab5ad2039027545deb6 /gcc/testsuite/gfortran.dg | |
| parent | c3be259842ff5b8fbe29f27c7ae76b31fdce20b7 (diff) | |
| download | gcc-7286c376998c9b9d1a6eab0cf61ab983c8286b2e.zip gcc-7286c376998c9b9d1a6eab0cf61ab983c8286b2e.tar.gz gcc-7286c376998c9b9d1a6eab0cf61ab983c8286b2e.tar.bz2 | |
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
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/io_constraints_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_check2.f90 | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/io_constraints_1.f90 b/gcc/testsuite/gfortran.dg/io_constraints_1.f90 index 05f52fa..5f2c776 100644 --- 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 --- 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 |