diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/reshape_empty_1.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/reshape_empty_1.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/reshape_empty_1.f03 b/gcc/testsuite/gfortran.dg/reshape_empty_1.f03 index df7a5d40653..d70b1b7cfd1 100644 --- a/gcc/testsuite/gfortran.dg/reshape_empty_1.f03 +++ b/gcc/testsuite/gfortran.dg/reshape_empty_1.f03 @@ -12,8 +12,8 @@ integer, parameter :: K = N*A(2,2)+A(2,3) integer :: B(N,N) = reshape([1,2,2,2,1,2,2,2,1],[3,3]) integer :: i i = 5 -if (any(A /= B)) call abort -if (K /= i) call abort +if (any(A /= B)) STOP 1 +if (K /= i) STOP 2 end ! { dg-final { scan-tree-dump-times "\\\{1, 2, 2, 2, 1, 2, 2, 2, 1\\\}" 2 "original" } } |