diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/overload_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/overload_1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/overload_1.f90 b/gcc/testsuite/gfortran.dg/overload_1.f90 index 97aa8433510..afd4f818597 100644 --- a/gcc/testsuite/gfortran.dg/overload_1.f90 +++ b/gcc/testsuite/gfortran.dg/overload_1.f90 @@ -160,7 +160,7 @@ contains r1 = (/ a == b, a /= b, a < b, a <= b, a > b, a >= b /) r2 = (/ a.eq.b, a.ne.b, a.lt.b, a.le.b, a.gt.b, a.ge.b /) - if (any (r1.neqv.r2)) call abort + if (any (r1.neqv.r2)) STOP 1 if (any (r1.neqv. & (/ .false.,.true.,.true., .true., .false.,.false. /) )) call& & abort @@ -175,7 +175,7 @@ contains r1 = (/ a == b, a /= b, a < b, a <= b, a > b, a >= b /) r2 = (/ a.eq.b, a.ne.b, a.lt.b, a.le.b, a.gt.b, a.ge.b /) - if (any (r1.neqv.r2)) call abort + if (any (r1.neqv.r2)) STOP 2 if (any (r1.neqv. & (/ .false.,.true.,.true., .true., .false.,.false. /) )) call& & abort |