diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2011-04-15 16:29:44 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2011-04-15 16:29:44 +0000 |
| commit | 0b0a0c945fad9f4a8ec83c4eabd9e141294d6ea5 (patch) | |
| tree | 6dbd6fc926495aa63ce26d5010f14f17a022aed0 /libgfortran/io | |
| parent | b3b66298b8abd301137928e290373c08fb5149d3 (diff) | |
| download | gcc-0b0a0c945fad9f4a8ec83c4eabd9e141294d6ea5.zip gcc-0b0a0c945fad9f4a8ec83c4eabd9e141294d6ea5.tar.gz gcc-0b0a0c945fad9f4a8ec83c4eabd9e141294d6ea5.tar.bz2 | |
re PR libfortran/48589 (Invalid G0/G0.d editing for NaN/infinity)
2011-04-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48589
* io/write_float.def (write_infnan): Set width properly for G0.
From-SVN: r172502
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/write_float.def | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index b72cf9f..ea9c99f5 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -654,11 +654,11 @@ write_infnan (st_parameter_dt *dtp, const fnode *f, int isnan_flag, int sign_bit mark = (sign == S_PLUS || sign == S_MINUS) ? 8 : 7; nb = f->u.real.w; - + /* If the field width is zero, the processor must select a width not zero. 4 is chosen to allow output of '-Inf' or '+Inf' */ - if (nb == 0) + if ((nb == 0) || dtp->u.p.g0_no_blanks) { if (isnan_flag) nb = 3; |