diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-01-21 02:39:53 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2014-01-21 02:39:53 +0000 |
| commit | 91d45414d8f5d82fa8945870f83ab11102d1e68c (patch) | |
| tree | d12c0af702993ba42fadbaa04d16f8d2c4034d38 | |
| parent | b6c5c31b034fe5c1e6050bdcb96204063d62025a (diff) | |
| download | gcc-91d45414d8f5d82fa8945870f83ab11102d1e68c.zip gcc-91d45414d8f5d82fa8945870f83ab11102d1e68c.tar.gz gcc-91d45414d8f5d82fa8945870f83ab11102d1e68c.tar.bz2 | |
write_float.def (output_float): Remove inadvertent test code from previous patch.
2014-01-20 Jerry DeLisle <jvdelisle@gcc.gnu>
Dominique d'Humieres <dominiq@lps.ens.fr>
* io/write_float.def (output_float): Remove inadvertent test
code from previous patch.
Co-Authored-By: Dominique d'Humieres <dominiq@lps.ens.fr>
From-SVN: r206865
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write_float.def | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3e3ef97..6cf885f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2014-01-20 Jerry DeLisle <jvdelisle@gcc.gnu> + Dominique d'Humieres <dominiq@lps.ens.fr> + + * io/write_float.def (output_float): Remove inadvertent test + code from previous patch. + 2014-01-19 Jerry DeLisle <jvdelisle@gcc.gnu> Dominique d'Humieres <dominiq@lps.ens.fr> diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 4777cda..59428fc 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -373,7 +373,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size, updown: rchar = '0'; - if (ft != FMT_F && nbefore == 0 && w > 0 && d == 0 && p == 0) + if (ft != FMT_F && w > 0 && d == 0 && p == 0) nbefore = 1; /* Scan for trailing zeros to see if we really need to round it. */ for(i = nbefore + nafter; i < ndigits; i++) @@ -389,7 +389,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size, /* Handle the case Fw.0 and value < 1.0 */ { ndigits = 0; - if (nzero_real == d && digits[0] >= rchar) + if (digits[0] >= rchar) { /* We rounded to zero but shouldn't have */ nbefore = 1; |