ieee_6.f90: Allow inexact together with underflow.

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

From-SVN: r212120

gcc/testsuite/ChangeLog

+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.

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)