diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dtio_26.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/dtio_26.f03 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/dtio_26.f03 b/gcc/testsuite/gfortran.dg/dtio_26.f03 index ad05da0523e..54813ca2a24 100644 --- a/gcc/testsuite/gfortran.dg/dtio_26.f03 +++ b/gcc/testsuite/gfortran.dg/dtio_26.f03 @@ -55,13 +55,13 @@ program p write(10,'(a)') 'hello' rewind(10) read(unit=10, fmt='(dt)', iostat=istat, iomsg=imsg) foo - if (imsg.ne."End of record") call abort + if (imsg.ne."End of record") STOP 1 rewind(10) read(unit=10, fmt=*, iostat=istat, iomsg=imsg) foo - if (imsg.ne."End of record") call abort + if (imsg.ne."End of record") STOP 2 s = "hello" read( unit=s, fmt='(dt)', iostat=istat, iomsg=imsg) foo - if (imsg.ne."End of record") call abort + if (imsg.ne."End of record") STOP 3 read( unit=s, fmt=*, iostat=istat, iomsg=imsg) foo - if (imsg.ne."End of record") call abort + if (imsg.ne."End of record") STOP 4 end program p |