diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-10-19 18:36:21 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-10-19 18:36:21 +0000 |
| commit | 7214db423759b309c323d8e27e07df605b79ec3a (patch) | |
| tree | 052d70853d0a6388f542edac0afffdd480c73c1e /libgfortran | |
| parent | cdfdc9c109210c71c227cb56db04ee78671d9238 (diff) | |
2008-10-19 Jerry DeLisle <jvdelisle@gcc.gnu.org
PR libfortran/37834
* io/write_float.def (output_float): Emit '0.' for special case of
format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141231 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write_float.def | 16 |
2 files changed, 22 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index cf3d9302673..9b2d18d58cf 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-10-19 Jerry DeLisle <jvdelisle@gcc.gnu.org + + PR libfortran/37834 + * io/write_float.def (output_float): Emit '0.' for special case of + format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'. + 2008-10-17 Jerry DeLisle <jvdelisle@gcc.gnu.org PR libfortran/37863 diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 73a6ed14a1b..d55e3799946 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -119,6 +119,22 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size, sign = calculate_sign (dtp, sign_bit); else sign = calculate_sign (dtp, 0); + + /* Handle special cases. */ + if (w == 0) + w = 2; + + /* For this one we choose to not output a decimal point. + F95 10.5.1.2.1 */ + if (w == 1 && ft == FMT_F) + { + out = write_block (dtp, w); + if (out == NULL) + return; + *out = '0'; + return; + } + } /* Normalize the fractional component. */ |