diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-04-04 02:50:23 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-04-04 02:50:23 +0000 |
| commit | 5eb90a1cbc822af1f2d9d8d82435d73d568f7d5f (patch) | |
| tree | 37f0498ca76b5fa9f0555132edfca032dff92430 | |
| parent | 76c6ea0c8be95f0f31cf63bb55e647c4539e7b12 (diff) | |
| download | gcc-5eb90a1cbc822af1f2d9d8d82435d73d568f7d5f.zip gcc-5eb90a1cbc822af1f2d9d8d82435d73d568f7d5f.tar.gz gcc-5eb90a1cbc822af1f2d9d8d82435d73d568f7d5f.tar.bz2 | |
write.c (output_float): Update condition to not error when decimal precision in format specifier is zero.
2006-04-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/write.c (output_float): Update condition to not error when
decimal precision in format specifier is zero.
From-SVN: r112656
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e3c5bbb..280f520 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-04-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * io/write.c (output_float): Update condition to not error when + decimal precision in format specifier is zero. + 2006-04-01 Francois-Xavier Coudert <coudert@clipper.ens.fr> * config/fpu-387.h: Use previously added SSE code in all diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index edd2933..39192dd 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -473,7 +473,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, GFC_REAL_LARGEST value) ndigits - 1, value); /* Check the resulting string has punctuation in the correct places. */ - if (buffer[2] != '.' || buffer[ndigits + 2] != 'e') + if (d != 0 && (buffer[2] != '.' || buffer[ndigits + 2] != 'e')) internal_error (&dtp->common, "printf is broken"); /* Read the exponent back in. */ |