diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inquire_9.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_9.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/inquire_9.f90 b/gcc/testsuite/gfortran.dg/inquire_9.f90 index 99cd1af19cf..c1785cb1274 100644 --- a/gcc/testsuite/gfortran.dg/inquire_9.f90 +++ b/gcc/testsuite/gfortran.dg/inquire_9.f90 @@ -3,22 +3,22 @@ logical :: l l = .true. inquire (file='inquire_9 file that should not exist', exist=l) - if (l) call abort + if (l) STOP 1 l = .true. inquire (unit=-16, exist=l) - if (l) call abort + if (l) STOP 2 open (unit=16, file='inquire_9.tst') write (unit=16, fmt='(a)') 'Test' l = .false. inquire (unit=16, exist=l) - if (.not.l) call abort + if (.not.l) STOP 3 l = .false. inquire (file='inquire_9.tst', exist=l) - if (.not.l) call abort + if (.not.l) STOP 4 close (unit=16) l = .false. inquire (file='inquire_9.tst', exist=l) - if (.not.l) call abort + if (.not.l) STOP 5 open (unit=16, file='inquire_9.tst') close (unit=16, status='delete') end |