aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@gcc.gnu.org>2014-06-29 08:42:44 +0000
committerAndreas Schwab <schwab@gcc.gnu.org>2014-06-29 08:42:44 +0000
commitf8d0f47bbb21c1c1ad9012201ecce9808933fddb (patch)
treef5b77bb4ef8a7d33f8dd3a0bcbe0701f93ec4d93 /gcc
parentb82fe35410080429da8544b4c8b62e7038883f2c (diff)
downloadgcc-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/ChangeLog7
-rw-r--r--gcc/testsuite/gfortran.dg/ieee/ieee_6.f9012
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)