diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/ftell_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/ftell_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/ftell_2.f90 b/gcc/testsuite/gfortran.dg/ftell_2.f90 index ec7c96c3da4..ea9da060978 100644 --- a/gcc/testsuite/gfortran.dg/ftell_2.f90 +++ b/gcc/testsuite/gfortran.dg/ftell_2.f90 @@ -1,12 +1,12 @@ ! { dg-do run } integer(kind=8) o open (10, status="scratch") - if (ftell(10) /= 0) call abort + if (ftell(10) /= 0) STOP 1 write (10,"(A)") "1234567" - if (ftell(10) /= 8 .and. ftell(10) /= 9) call abort + if (ftell(10) /= 8 .and. ftell(10) /= 9) STOP 2 o = ftell(10) write (10,"(A)") "1234567" - if (ftell(10) /= 2 * o) call abort + if (ftell(10) /= 2 * o) STOP 3 close (10) - if (ftell(10) /= -1) call abort + if (ftell(10) /= -1) STOP 4 end |