diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/shape_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/shape_8.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/shape_8.f90 b/gcc/testsuite/gfortran.dg/shape_8.f90 index 51c6e552b51..3b716db2e5e 100644 --- a/gcc/testsuite/gfortran.dg/shape_8.f90 +++ b/gcc/testsuite/gfortran.dg/shape_8.f90 @@ -7,9 +7,9 @@ program test real, allocatable :: x(:,:) allocate(x(2,5)) - if (any(shape(x) /= [ 2, 5 ])) call abort - if (any(shape(x,kind=1) /= [ 2, 5 ])) call abort - if (any(shape(x,kind=2) /= [ 2, 5 ])) call abort - if (any(shape(x,kind=4) /= [ 2, 5 ])) call abort - if (any(shape(x,kind=8) /= [ 2, 5 ])) call abort + if (any(shape(x) /= [ 2, 5 ])) STOP 1 + if (any(shape(x,kind=1) /= [ 2, 5 ])) STOP 2 + if (any(shape(x,kind=2) /= [ 2, 5 ])) STOP 3 + if (any(shape(x,kind=4) /= [ 2, 5 ])) STOP 4 + if (any(shape(x,kind=8) /= [ 2, 5 ])) STOP 5 end |