From e7944306e8a093f07e8e0647ecf7ba11c95da695 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Thu, 6 Aug 2015 08:38:59 +0000 Subject: [PATCH] PR fortran/64022 * gfortran.dg/ieee/large_1.f90: Adjust test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@226665 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ 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 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 -- 2.11.4.GIT