diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/typebound_operator_12.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_operator_12.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_12.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_12.f03 index 4f729570b00..ddc5d9b4154 100644 --- a/gcc/testsuite/gfortran.dg/typebound_operator_12.f03 +++ b/gcc/testsuite/gfortran.dg/typebound_operator_12.f03 @@ -38,6 +38,6 @@ program main fireworks%velocity = [4,5,6] dt = 5 fireworks = fireworks + fireworks*dt - if (any (fireworks%position .ne. [6, 12, 18])) call abort - if (any (fireworks%velocity .ne. [24, 30, 36])) call abort + if (any (fireworks%position .ne. [6, 12, 18])) STOP 1 + if (any (fireworks%velocity .ne. [24, 30, 36])) STOP 2 end program |