diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/ieee/ieee_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/ieee_8.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/ieee/ieee_8.f90 b/gcc/testsuite/gfortran.dg/ieee/ieee_8.f90 index 0a3213a7c58..d847b1b3eee 100644 --- a/gcc/testsuite/gfortran.dg/ieee/ieee_8.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/ieee_8.f90 @@ -98,16 +98,16 @@ subroutine gee(n, rounding, flag) integer, parameter :: x8 = merge(4,2,ieee_support_halting(ieee_overflow)) - if (len(s1) /= x1) call abort - if (len(s2) /= x2) call abort - if (len(s3) /= x3) call abort + if (len(s1) /= x1) STOP 1 + if (len(s2) /= x2) STOP 2 + if (len(s3) /= x3) STOP 3 - if (len(s4) /= x4) call abort - if (len(s5) /= x5) call abort + if (len(s4) /= x4) STOP 4 + if (len(s5) /= x5) STOP 5 - if (len(s6) /= x6) call abort - if (len(s7) /= x7) call abort + if (len(s6) /= x6) STOP 6 + if (len(s7) /= x7) STOP 7 - if (len(s8) /= x8) call abort + if (len(s8) /= x8) STOP 8 end subroutine |