diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-11-21 04:29:54 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-11-21 04:29:54 +0000 |
| commit | 8317f8372add21f2a72e6ed6cbdc22df91725ef0 (patch) | |
| tree | c40a8f03142dbe23cb4d9905e127c419b1752a03 /libgfortran | |
| parent | 38c1f9c749a5a3aef2a1e20a587c5f44b14f004d (diff) | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142079 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write_float.def | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 95f526a5374..56fff3fcf80 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 d55e3799946..8bb4123084f 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)\ |