From 0f4122ff3dbeac0791ea70ca3279cfd138db6fab Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 21 Nov 2008 04:29:54 +0000 Subject: re PR fortran/37472 (bad output on default-format write of double in common block with -m64) 2008-11-20 Jerry DeLisle PR libfortran/37472 * io/write_float.def (output_float_FMT_G_): Adjust conversion of G format specification to F format. From-SVN: r142079 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/write_float.def | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 95f526a..56fff3f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-11-20 Jerry DeLisle + + PR libfortran/37472 + * io/write_float.def (output_float_FMT_G_): Adjust conversion of + G format specification to F format. + 2008-11-18 Thomas Koenig PR libfortran/38135 diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index d55e379..8bb4123 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -652,7 +652,10 @@ output_float_FMT_G_ ## x (st_parameter_dt *dtp, const fnode *f, \ low = mid + 1;\ }\ else\ - break;\ + {\ + mid++;\ + break;\ + }\ }\ \ if (e < 0)\ -- cgit v1.1