diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_read.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_read.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_read.f90 b/gcc/testsuite/gfortran.dg/fmt_read.f90 index 3b33946a523..9d34aeaf437 100644 --- a/gcc/testsuite/gfortran.dg/fmt_read.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_read.f90 @@ -6,6 +6,6 @@ rewind(7) read(7,'(F15.5)') a,b ! note the read format is wider than the write - if (abs(a-1.0) .gt. 1e-5) call abort - if (abs(b-2.0) .gt. 1e-5) call abort + if (abs(a-1.0) .gt. 1e-5) STOP 1 + if (abs(b-2.0) .gt. 1e-5) STOP 2 end |