diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-06 08:38:59 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-06 08:38:59 +0000 |
| commit | b168884abe2af7149ec04c3acf66ada2597073ba (patch) | |
| tree | dc2ac2fb36c808df859d13f093c80fcecffe258e | |
| parent | f31d0b122fcfbd94a6b94a03d706e98e53a0798b (diff) | |
| download | gcc-b168884abe2af7149ec04c3acf66ada2597073ba.zip gcc-b168884abe2af7149ec04c3acf66ada2597073ba.tar.gz gcc-b168884abe2af7149ec04c3acf66ada2597073ba.tar.bz2 | |
re PR fortran/64022 ([F2003][IEEE] ieee_support_flag does not handle kind=10 and kind=16 REAL variables)
PR fortran/64022
* gfortran.dg/ieee/large_1.f90: Adjust test.
From-SVN: r226665
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/large_1.f90 | 7 |
2 files changed, 10 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 205975d..1d7e6a6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-08-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/64022 + * gfortran.dg/ieee/large_1.f90: Adjust test. + 2015-08-05 Manuel López-Ibáñez <manu@gcc.gnu.org> Jeff Law <law@redhat.com> diff --git a/gcc/testsuite/gfortran.dg/ieee/large_1.f90 b/gcc/testsuite/gfortran.dg/ieee/large_1.f90 index 5ec2dab..92cdba6 100644 --- a/gcc/testsuite/gfortran.dg/ieee/large_1.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/large_1.f90 @@ -16,6 +16,7 @@ program test real(kind=k1) :: x1, y1 real(kind=k2) :: x2, y2 + logical :: l ! Checking ieee_is_finite @@ -52,7 +53,8 @@ program test if (.not. ieee_support_rounding(ieee_nearest, x1)) call abort if (.not. ieee_support_sqrt(x1)) call abort if (.not. ieee_support_standard(x1)) call abort - if (.not. ieee_support_underflow_control(x1)) call abort + + l = ieee_support_underflow_control(x1) if (.not. ieee_support_datatype(x2)) call abort if (.not. ieee_support_denormal(x2)) call abort @@ -63,7 +65,8 @@ program test if (.not. ieee_support_rounding(ieee_nearest, x2)) call abort if (.not. ieee_support_sqrt(x2)) call abort if (.not. ieee_support_standard(x2)) call abort - if (.not. ieee_support_underflow_control(x2)) call abort + + l = ieee_support_underflow_control(x2) ! ieee_value and ieee_class |