From 5ccbaf4f82b7f5292212a5c5bb2ba5ff38981109 Mon Sep 17 00:00:00 2001 From: schwab Date: Sun, 29 Jun 2014 08:42:44 +0000 Subject: [PATCH] * gfortran.dg/ieee/ieee_6.f90: Allow inexact together with underflow. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212120 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 7 ++++++- gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 | 12 +++++++++--- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 739e0aa0178..879a8443359 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,12 @@ +2014-06-29 Andreas Schwab + + * gfortran.dg/ieee/ieee_6.f90: Allow inexact together with + underflow. + 2014-06-28 Francois-Xavier Coudert PR fortran/29383 - * lib/target-supports.exp (check_effective_target_fortran_ieee): + * lib/target-supports.exp (check_effective_target_fortran_ieee): New function. * gfortran.dg/ieee/ieee.exp: New file. * gfortran.dg/ieee/ieee_1.F90: New file. diff --git a/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 b/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 index a9a9517ee7c..8fb4f6f80d2 100644 --- a/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 @@ -40,7 +40,9 @@ call ieee_get_flag(ieee_all, flags) if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & - .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]))) call abort + .or. all(flags .eqv. [.false.,.false.,.true.,.true.,.true.]) & + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]) & + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) call abort call ieee_get_rounding_mode(mode) if (mode /= ieee_to_zero) call abort call ieee_get_halting_mode(ieee_all, halt) @@ -50,7 +52,9 @@ call ieee_get_flag(ieee_all, flags) if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & - .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]))) call abort + .or. all(flags .eqv. [.false.,.false.,.true.,.true.,.true.]) & + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]) & + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) call abort call ieee_get_rounding_mode(mode) if (mode /= ieee_to_zero) call abort call ieee_get_halting_mode(ieee_all, halt) @@ -69,7 +73,9 @@ call ieee_get_flag(ieee_all, flags) if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & - .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]))) call abort + .or. all(flags .eqv. [.false.,.false.,.true.,.true.,.true.]) & + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]) & + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) call abort call ieee_get_rounding_mode(mode) if (mode /= ieee_to_zero) call abort call ieee_get_halting_mode(ieee_all, halt) -- 2.11.4.GIT