diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/ieee/large_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/large_4.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/ieee/large_4.f90 b/gcc/testsuite/gfortran.dg/ieee/large_4.f90 index c653d299ce9..be2ae643147 100644 --- a/gcc/testsuite/gfortran.dg/ieee/large_4.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/large_4.f90 @@ -20,16 +20,16 @@ program test_underflow_control x = tiny(x) call ieee_set_underflow_mode(.true.) x = x / 2000._kx - if (x == 0) call abort + if (x == 0) STOP 1 call ieee_get_underflow_mode(l) - if (.not. l) call abort + if (.not. l) STOP 2 x = tiny(x) call ieee_set_underflow_mode(.false.) x = x / 2000._kx - if (x > 0) call abort + if (x > 0) STOP 3 call ieee_get_underflow_mode(l) - if (l) call abort + if (l) STOP 4 end if @@ -38,16 +38,16 @@ program test_underflow_control y = tiny(y) call ieee_set_underflow_mode(.true.) y = y / 2000._ky - if (y == 0) call abort + if (y == 0) STOP 5 call ieee_get_underflow_mode(l) - if (.not. l) call abort + if (.not. l) STOP 6 y = tiny(y) call ieee_set_underflow_mode(.false.) y = y / 2000._ky - if (y > 0) call abort + if (y > 0) STOP 7 call ieee_get_underflow_mode(l) - if (l) call abort + if (l) STOP 8 end if |