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

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)