diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/vector_subscript_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/vector_subscript_3.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/vector_subscript_3.f90 b/gcc/testsuite/gfortran.dg/vector_subscript_3.f90 index 3fa306e1639..cfe87a26e55 100644 --- a/gcc/testsuite/gfortran.dg/vector_subscript_3.f90 +++ b/gcc/testsuite/gfortran.dg/vector_subscript_3.f90 @@ -20,26 +20,26 @@ Program QH0008 ACTION = 'READWRITE') ISTAT = -314 REWIND (47, IOSTAT = ISTAT) - IF (ISTAT .NE. 0) call abort () + IF (ISTAT .NE. 0) STOP 1 ISTAT = -314 ! write qda1 WRITE (47,IOSTAT = ISTAT) QDA1 - IF (ISTAT .NE. 0) call abort () + IF (ISTAT .NE. 0) STOP 2 ISTAT = -314 REWIND (47, IOSTAT = ISTAT) - IF (ISTAT .NE. 0) call abort () + IF (ISTAT .NE. 0) STOP 3 ! Do the vector index read that used to fail READ (47,IOSTAT = ISTAT) QDA(NFV1) - IF (ISTAT .NE. 0) call abort () + IF (ISTAT .NE. 0) STOP 4 ! Unscramble qda using the vector index IF (ANY (QDA(nfv1) .ne. QDA1) ) print *, qda, qda1 ISTAT = -314 REWIND (47, IOSTAT = ISTAT) - IF (ISTAT .NE. 0) call abort () + IF (ISTAT .NE. 0) STOP 5 qda = -200 ! Do the subscript read that was OK READ (47,IOSTAT = ISTAT) QDA(1:10) - IF (ISTAT .NE. 0) call abort () - IF (ANY (QDA .ne. QDA1) ) call abort () + IF (ISTAT .NE. 0) STOP 6 + IF (ANY (QDA .ne. QDA1) ) STOP 7 END |