diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/shape_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/shape_4.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/shape_4.f90 b/gcc/testsuite/gfortran.dg/shape_4.f90 index 31f3d78a4a7..ac79fa1a33c 100644 --- a/gcc/testsuite/gfortran.dg/shape_4.f90 +++ b/gcc/testsuite/gfortran.dg/shape_4.f90 @@ -7,7 +7,7 @@ program main j = 1 i = 10 res = shape(a(1:1,i:j:1)) - if (res(1) /=1 .or. res(2) /= 0) call abort + if (res(1) /=1 .or. res(2) /= 0) STOP 1 res = shape(a(1:1,j:i:-1)) - if (res(1) /=1 .or. res(2) /= 0) call abort + if (res(1) /=1 .or. res(2) /= 0) STOP 2 end program main |