diff options
author | Andreas Schwab <schwab@gcc.gnu.org> | 2014-06-29 08:42:44 +0000 |
---|---|---|
committer | Andreas Schwab <schwab@gcc.gnu.org> | 2014-06-29 08:42:44 +0000 |
commit | f8d0f47bbb21c1c1ad9012201ecce9808933fddb (patch) | |
tree | f5b77bb4ef8a7d33f8dd3a0bcbe0701f93ec4d93 /gcc | |
parent | b82fe35410080429da8544b4c8b62e7038883f2c (diff) | |
download | gcc-f8d0f47bbb21c1c1ad9012201ecce9808933fddb.zip gcc-f8d0f47bbb21c1c1ad9012201ecce9808933fddb.tar.gz gcc-f8d0f47bbb21c1c1ad9012201ecce9808933fddb.tar.bz2 |
ieee_6.f90: Allow inexact together with underflow.
* gfortran.dg/ieee/ieee_6.f90: Allow inexact together with
underflow.
From-SVN: r212120
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
-rw-r--r-- | 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 739e0aa..879a844 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,12 @@ +2014-06-29 Andreas Schwab <schwab@linux-m68k.org> + + * gfortran.dg/ieee/ieee_6.f90: Allow inexact together with + underflow. + 2014-06-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 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 a9a9517..8fb4f6f 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) |