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/intrinsics_2.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/intrinsics_2.F90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/intrinsics_2.F90 | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/gcc/testsuite/gfortran.dg/ieee/intrinsics_2.F90 b/gcc/testsuite/gfortran.dg/ieee/intrinsics_2.F90 index a179da24090..de0b2850337 100644 --- a/gcc/testsuite/gfortran.dg/ieee/intrinsics_2.F90 +++ b/gcc/testsuite/gfortran.dg/ieee/intrinsics_2.F90 @@ -13,38 +13,38 @@ program test x = 0. call check_positive_zero(fraction(x)) - if (exponent(x) /= 0) call abort - if (spacing(x) /= spacing(tiny(x))) call abort + if (exponent(x) /= 0) STOP 1 + if (spacing(x) /= spacing(tiny(x))) STOP 2 call check_positive_zero(rrspacing(x)) call check_positive_zero(set_exponent(x,42)) x = -0. call check_negative_zero(fraction(x)) - if (exponent(x) /= 0) call abort - if (spacing(x) /= spacing(tiny(x))) call abort + if (exponent(x) /= 0) STOP 3 + if (spacing(x) /= spacing(tiny(x))) STOP 4 call check_positive_zero(rrspacing(x)) call check_negative_zero(set_exponent(x,42)) x = inf - if (.not. isnan(fraction(x))) call abort - if (exponent(x) /= huge(0)) call abort - if (.not. isnan(spacing(x))) call abort - if (.not. isnan(rrspacing(x))) call abort - if (.not. isnan(set_exponent(x, 42))) call abort + if (.not. isnan(fraction(x))) STOP 5 + if (exponent(x) /= huge(0)) STOP 6 + if (.not. isnan(spacing(x))) STOP 7 + if (.not. isnan(rrspacing(x))) STOP 8 + if (.not. isnan(set_exponent(x, 42))) STOP 9 x = -inf - if (.not. isnan(fraction(x))) call abort - if (exponent(x) /= huge(0)) call abort - if (.not. isnan(spacing(x))) call abort - if (.not. isnan(rrspacing(x))) call abort - if (.not. isnan(set_exponent(x, 42))) call abort + if (.not. isnan(fraction(x))) STOP 10 + if (exponent(x) /= huge(0)) STOP 11 + if (.not. isnan(spacing(x))) STOP 12 + if (.not. isnan(rrspacing(x))) STOP 13 + if (.not. isnan(set_exponent(x, 42))) STOP 14 x = nan - if (.not. isnan(fraction(x))) call abort - if (exponent(x) /= huge(0)) call abort - if (.not. isnan(spacing(x))) call abort - if (.not. isnan(rrspacing(x))) call abort - if (.not. isnan(set_exponent(x, 42))) call abort + if (.not. isnan(fraction(x))) STOP 15 + if (exponent(x) /= huge(0)) STOP 16 + if (.not. isnan(spacing(x))) STOP 17 + if (.not. isnan(rrspacing(x))) STOP 18 + if (.not. isnan(set_exponent(x, 42))) STOP 19 contains @@ -53,7 +53,7 @@ contains implicit none real, value :: x - if (ieee_class (x) /= ieee_positive_zero) call abort + if (ieee_class (x) /= ieee_positive_zero) STOP 20 end subroutine check_negative_zero(x) @@ -61,7 +61,7 @@ contains implicit none real, value :: x - if (ieee_class (x) /= ieee_negative_zero) call abort + if (ieee_class (x) /= ieee_negative_zero) STOP 21 end end |