[patch, libfortran] PR39402 write of 0.0 with F0.3 gives **

[Jerry DeLisle]

The following patch was committed after regression testing and NIST 
testing.  It is a limited special case, simple, and obvious. New test 
case also provided.

$ svn commit ChangeLog io/write_float.def
Sending        ChangeLog
Sending        io/write_float.def
Transmitting file data ..
Committed revision 144718.


Index: write_float.def
===================================================================
--- write_float.def     (revision 144717)
+++ write_float.def     (working copy)
@@ -122,7 +122,7 @@ output_float (st_parameter_dt *dtp, cons

        /* Handle special cases.  */
        if (w == 0)
-       w = 2;
+       w = d + 2;

        /* For this one we choose to not output a decimal point.
          F95 10.5.1.2.1  */

Best regards,

Jerry