[Bug libfortran/59771] New: Cleanup handling of Gw.0 and Gw.0Ee format

[jvdelisle at gcc dot gnu.org]

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;\