diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/ieee/rounding_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/rounding_1.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/ieee/rounding_1.f90 b/gcc/testsuite/gfortran.dg/ieee/rounding_1.f90 index c44178ee1ae..469d2d61eb0 100644 --- a/gcc/testsuite/gfortran.dg/ieee/rounding_1.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/rounding_1.f90 @@ -23,15 +23,15 @@ ! We should support at least C float and C double types if (ieee_support_rounding(ieee_nearest)) then - if (.not. ieee_support_rounding(ieee_nearest, 0.)) call abort - if (.not. ieee_support_rounding(ieee_nearest, 0.d0)) call abort + if (.not. ieee_support_rounding(ieee_nearest, 0.)) STOP 1 + if (.not. ieee_support_rounding(ieee_nearest, 0.d0)) STOP 2 end if ! The initial rounding mode should probably be NEAREST ! (at least on the platforms we currently support) if (ieee_support_rounding(ieee_nearest, 0.)) then call ieee_get_rounding_mode (mode) - if (mode /= ieee_nearest) call abort + if (mode /= ieee_nearest) STOP 3 end if @@ -121,7 +121,7 @@ contains real, intent(in) :: x, y if (x /= y) then print *, x, y - call abort + STOP 4 end if end subroutine @@ -129,7 +129,7 @@ contains double precision, intent(in) :: x, y if (x /= y) then print *, x, y - call abort + STOP 5 end if end subroutine @@ -137,7 +137,7 @@ contains real, intent(in) :: x, y if (x == y) then print *, x, y - call abort + STOP 6 end if end subroutine @@ -145,7 +145,7 @@ contains double precision, intent(in) :: x, y if (x == y) then print *, x, y - call abort + STOP 7 end if end subroutine |