OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Francois-Xavier Coudert 2015-08-06 08:38:59 +00:00 committed by François-Xavier Coudert
parent f31d0b122f
commit b168884abe
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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>

7
gcc/testsuite/gfortran.dg/ieee/large_1.f90
View File

@ -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