diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inquire_7.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_7.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/inquire_7.f90 b/gcc/testsuite/gfortran.dg/inquire_7.f90 index 02e96ab4dcb..c34d5e55f7c 100644 --- a/gcc/testsuite/gfortran.dg/inquire_7.f90 +++ b/gcc/testsuite/gfortran.dg/inquire_7.f90 @@ -8,20 +8,20 @@ open(10,delim='quote',status='SCRATCH') inquire(10,delim=delim) close(10) - if (delim .ne. 'QUOTE') call abort + if (delim .ne. 'QUOTE') STOP 1 ! apostrophe open(10,delim='apostrophe',status='SCRATCH') inquire(10,delim=delim) close(10) - if (delim .ne. 'APOSTROPHE') call abort + if (delim .ne. 'APOSTROPHE') STOP 2 ! none open(10,status='SCRATCH') inquire(10,delim=delim) close(10) - if (delim .ne. 'NONE') call abort + if (delim .ne. 'NONE') STOP 3 ! undefined open(10,form='UNFORMATTED',status='SCRATCH') inquire(10,delim=delim) close(10) - if (delim .ne. 'UNDEFINED') call abort + if (delim .ne. 'UNDEFINED') STOP 4 end program main |