http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59771
Bug ID: 59771
Summary: Cleanup handling of Gw.0 and Gw.0Ee format
Product: gcc
Version: 4.9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: libfortran
Assignee: jvdelisle at gcc dot gnu.org
Reporter: jvdelisle at gcc dot gnu.org
Carried over from PR48906 Comment 38
"If d is zero, kPEw.0 or kPEw.0Ee editing is used for Gw.0 editing or Gw.0Ee
editing respectively."
Possible patch needs more testing:
Index: write_float.def
===================================================================
--- write_float.def (revision 206545)
+++ write_float.def (working copy)
@@ -1046,7 +1046,8 @@
rexp_d = calculate_exp_ ## x (-d);\
if ((m > 0.0 && ((m < 0.1 - 0.1 * r * rexp_d) || (rexp_d * (m + r) >=
1.0)))\
|| ((m == 0.0) && !(compile_options.allow_std\
- & (GFC_STD_F2003 | GFC_STD_F2008))))\
+ & (GFC_STD_F2003 | GFC_STD_F2008)))\
+ || d == 0)\
{ \
newf.format = FMT_E;\
newf.u.real.w = w;\
