From: Francois-Xavier Coudert Date: Thu, 6 Aug 2015 08:38:59 +0000 (+0000) Subject: re PR fortran/64022 ([F2003][IEEE] ieee_support_flag does not handle kind=10 and... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b168884abe2af7149ec04c3acf66ada2597073ba;p=gcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 205975df36a..1d7e6a6edfc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-08-06 Francois-Xavier Coudert + + PR fortran/64022 + * gfortran.dg/ieee/large_1.f90: Adjust test. + 2015-08-05 Manuel López-Ibáñez Jeff Law diff --git a/gcc/testsuite/gfortran.dg/ieee/large_1.f90 b/gcc/testsuite/gfortran.dg/ieee/large_1.f90 index 5ec2dab2d05..92cdba67bf0 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