From: Andreas Schwab Date: Sun, 29 Jun 2014 08:42:44 +0000 (+0000) Subject: ieee_6.f90: Allow inexact together with underflow. X-Git-Tag: releases/gcc-5.1.0~6592 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f8d0f47bbb21c1c1ad9012201ecce9808933fddb;p=thirdparty%2Fgcc.git ieee_6.f90: Allow inexact together with underflow. * gfortran.dg/ieee/ieee_6.f90: Allow inexact together with underflow. From-SVN: r212120 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 739e0aa0178f..879a8443359e 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 a9a9517ee7cd..8fb4f6f80d20 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)