This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/39402] gfortran 20090306: internal write of 0.0 with F0.3 gives **
- From: "jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 9 Mar 2009 05:00:16 -0000
- Subject: [Bug libfortran/39402] gfortran 20090306: internal write of 0.0 with F0.3 gives **
- References: <bug-39402-17105@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #5 from jvdelisle at gcc dot gnu dot org 2009-03-09 05:00 -------
Committed revision 144718. (passed regression testing, had wrong PR number in
ChangeLog, fixed)
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 */
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39402