diff options
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/write_float.def | 5 |
1 files changed, 4 insertions, 1 deletions
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)\ |