diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/reshape-alloc.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/reshape-alloc.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/reshape-alloc.f90 b/gcc/testsuite/gfortran.dg/reshape-alloc.f90 index c4c7a0e2a8c..bb395c53f2f 100644 --- a/gcc/testsuite/gfortran.dg/reshape-alloc.f90 +++ b/gcc/testsuite/gfortran.dg/reshape-alloc.f90 @@ -21,12 +21,12 @@ program tryreshape vect2=1 resh2 = reshape(vect2,s) - if (resh2(1,1) /= 1.0) call abort + if (resh2(1,1) /= 1.0) STOP 1 resh1 = reshape(vect1,s) - if (resh1(1,1) /= 1.0) call abort + if (resh1(1,1) /= 1.0) STOP 2 resh = reshape(vect,s) - if (resh(1,1) /= 1.0) call abort + if (resh(1,1) /= 1.0) STOP 3 end program tryreshape |