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
