diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/streamio_14.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/streamio_14.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/streamio_14.f90 b/gcc/testsuite/gfortran.dg/streamio_14.f90 index 54522fe6bd5..33674bccf7d 100644 --- a/gcc/testsuite/gfortran.dg/streamio_14.f90 +++ b/gcc/testsuite/gfortran.dg/streamio_14.f90 @@ -7,16 +7,16 @@ program main write (10) '1234567890abcde' c = '' read (10,pos=1) c - if (c /= '1234567890') call abort + if (c /= '1234567890') STOP 1 c = '' read (10,pos=6) c - if (c /= '67890abcde') call abort + if (c /= '67890abcde') STOP 2 write (10,pos=3) 'AB' c = '' read (10,pos=1) c - if (c /= '12AB567890') call abort + if (c /= '12AB567890') STOP 3 c = '' read (10,pos=6) c - if (c /= '67890abcde') call abort + if (c /= '67890abcde') STOP 4 close (10,status="delete") end program main |