diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/assign_10.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/assign_10.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/assign_10.f90 b/gcc/testsuite/gfortran.dg/assign_10.f90 index 58124b69b78..42f66e5b533 100644 --- a/gcc/testsuite/gfortran.dg/assign_10.f90 +++ b/gcc/testsuite/gfortran.dg/assign_10.f90 @@ -15,8 +15,8 @@ q4(q4) = (/(i, i = 1, 4)/) p8(q8) = (/(i, i = 1, 4)/) q8(q8) = (/(i, i = 1, 4)/) - if (any(p4 .ne. q4)) call abort () - if (any(p8 .ne. q8)) call abort () + if (any(p4 .ne. q4)) STOP 1 + if (any(p8 .ne. q8)) STOP 2 end ! Whichever is the default length for array indices will yield ! parm 18 times, because a temporary is not necessary. The other |