diff options
| author | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
|---|---|---|
| committer | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
| commit | 88a3ea34080ad3087a8191fbf479543153175d59 (patch) | |
| tree | 34eaec34d3588e09f9a77abba776266f124dc823 /gcc/testsuite/gfortran.dg/ieee/rounding_1.f90 | |
| parent | 25e15aaed275cdfef34b3ee6eb3cb4b43a48d44f (diff) | |
| parent | e65055a558093bd4fc0b1b0024b7814cc187b8e8 (diff) | |
| download | gcc-88a3ea34080ad3087a8191fbf479543153175d59.tar.gz | |
Merge from trunk revision 257954.gccgo
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gccgo@257955 138bc75d-0d04-0410-961f-82ee72b054a4
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 |