OSDN Git Service

2008-11-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 21 Nov 2008 04:29:54 +0000 (04:29 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 21 Nov 2008 04:29:54 +0000 (04:29 +0000)
PR libfortran/37472
* io/write_float.def (output_float_FMT_G_): Adjust conversion of
G format specification to F format.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142079 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/io/write_float.def

index 95f526a..56fff3f 100644 (file)
@@ -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
index d55e379..8bb4123 100644 (file)
@@ -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)\