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

7
gcc/testsuite/ChangeLog
View File

@ -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> 2014-06-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/29383 PR fortran/29383
* lib/target-supports.exp (check_effective_target_fortran_ieee): * lib/target-supports.exp (check_effective_target_fortran_ieee):
New function. New function.
* gfortran.dg/ieee/ieee.exp: New file. * gfortran.dg/ieee/ieee.exp: New file.
* gfortran.dg/ieee/ieee_1.F90: New file. * gfortran.dg/ieee/ieee_1.F90: New file.

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)