diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inquire_15.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_15.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/inquire_15.f90 b/gcc/testsuite/gfortran.dg/inquire_15.f90 index ae94270ca8f..5971dc6fe0c 100644 --- a/gcc/testsuite/gfortran.dg/inquire_15.f90 +++ b/gcc/testsuite/gfortran.dg/inquire_15.f90 @@ -4,10 +4,10 @@ character(len=20) :: str str = "abcdefg" inquire(file="abcddummy", stream=str) !print *, "str=",str -if (str /= "UNKNOWN") call abort +if (str /= "UNKNOWN") STOP 1 inquire(99, stream=str) !print *, "str=",str -if (str /= "UNKNOWN") call abort +if (str /= "UNKNOWN") STOP 2 open(99,access="stream") inquire(99, stream=str) !print *, "str=",str @@ -25,5 +25,5 @@ if (str /= "NO") goto 10 close(99, status="delete") stop 10 close(99, status="delete") -call abort +STOP 3 end |