[Bug fortran/57822] I/O: "(g0)" wrongly prints "E+0000"

[jvdelisle at gcc dot gnu.org]

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

Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |jvdelisle at gcc dot gnu.org

--- Comment #1 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Possible Patch:  Still Testing

Index: write_float.def
===================================================================
--- write_float.def    (revision 220505)
+++ write_float.def    (working copy)
@@ -724,7 +724,7 @@
     }

   /* Output the exponent.  */
-  if (expchar)
+  if (expchar && !(dtp->u.p.g0_no_blanks && e == 0))
     {
       if (expchar != ' ')
     {