From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 21 Nov 2008 04:29:54 +0000 (+0000)
Subject: re PR fortran/37472 (bad output on default-format write of double in common block... 
X-Git-Tag: releases/gcc-4.4.0~1558
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0f4122ff3dbeac0791ea70ca3279cfd138db6fab;p=thirdparty%2Fgcc.git

re PR fortran/37472 (bad output on default-format write of double in common block with -m64)

2008-11-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/37472
	* io/write_float.def (output_float_FMT_G_): Adjust conversion of
	G format specification to F format.

From-SVN: r142079
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 95f526a5374d..56fff3fcf80c 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	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  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/38135
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index d55e3799946d..8bb4123084f4 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)\