[Bug fortran/67509] [6 regression] FAIL: gfortran.dg/ieee/ieee_7.f90 -O0 execution test

[fxcoudert at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67509

Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-09-10
     Ever confirmed|0                           |1

--- Comment #5 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
(In reply to Andreas Schwab from comment #4)
>           37         307         291
>    3.40282347E+38   1.7976931348623157E+308  
> 8.98846567431157953864652595394512367E+0307
>    1.17549435E-38   2.2250738585072014E-308  
> 2.00416836000897277799610805135016205E-0292

LDBL_MIN is smaller than DBL_MIN? I hadn't considered that…

Well, since the test's intent is to find impossible ranges, this can easily be
changed. Can you test that the patch below makes it pass for you?

Index: ieee_7.f90
===================================================================
--- ieee_7.f90  (revision 227316)
+++ ieee_7.f90  (working copy)
@@ -33,8 +33,8 @@
   end if

   if (ieee_selected_real_kind(0,0,3) /= -5) call abort
-  if (ieee_selected_real_kind(precision(0._maxreal)+1) /= -1) call abort
-  if (ieee_selected_real_kind(0,range(0._maxreal)+1) /= -2) call abort
-  if (ieee_selected_real_kind(precision(0._maxreal)+1,range(0._maxreal)+1) /=
-3) call abort
+  if (ieee_selected_real_kind(100*precision(0._maxreal)) /= -1) call abort
+  if (ieee_selected_real_kind(0,100*range(0._maxreal)) /= -2) call abort
+  if (ieee_selected_real_kind(100*precision(0._maxreal),100*range(0._maxreal))
/= -3) call abort

 end