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

ieee_6.f90: Allow inexact together with underflow.

Browse Source 
* gfortran.dg/ieee/ieee_6.f90: Allow inexact together with
underflow.

From-SVN: r212120
This commit is contained in:
Andreas Schwab 2014-06-29 08:42:44 +00:00
parent b82fe35410
commit f8d0f47bbb
2 changed files with 15 additions and 4 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 @@
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> 2014-06-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/29383 PR fortran/29383

12
gcc/testsuite/gfortran.dg/ieee/ieee_6.f90
View File

@ -40,7 +40,9 @@
call ieee_get_flag(ieee_all, flags) call ieee_get_flag(ieee_all, flags)
if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & 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) call ieee_get_rounding_mode(mode)
if (mode /= ieee_to_zero) call abort if (mode /= ieee_to_zero) call abort
call ieee_get_halting_mode(ieee_all, halt) call ieee_get_halting_mode(ieee_all, halt)
@ -50,7 +52,9 @@
call ieee_get_flag(ieee_all, flags) call ieee_get_flag(ieee_all, flags)
if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & 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) call ieee_get_rounding_mode(mode)
if (mode /= ieee_to_zero) call abort if (mode /= ieee_to_zero) call abort
call ieee_get_halting_mode(ieee_all, halt) call ieee_get_halting_mode(ieee_all, halt)
@ -69,7 +73,9 @@
call ieee_get_flag(ieee_all, flags) call ieee_get_flag(ieee_all, flags)
if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & 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) call ieee_get_rounding_mode(mode)
if (mode /= ieee_to_zero) call abort if (mode /= ieee_to_zero) call abort
call ieee_get_halting_mode(ieee_all, halt) call ieee_get_halting_mode(ieee_all, halt)