From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
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  <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 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