diff options
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 48788f197cb..f4f0616c3dd 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-07-14 Jerry DeLisle <jvdelisle@verizon.net> + + * io/write.c (write_float): Fix field width checks for + printing 'Infinity' or 'Inf'. + (output_float): Fix typo in comment. + 2005-07-12 Paul Thomas <pault@gcc.gnu.org> PR libfortran/16435 diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index c7abf2bbd7d..54bf480fdf3 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -649,7 +649,7 @@ output_float (fnode *f, GFC_REAL_LARGEST value) else leadzero = 0; - /* Padd to full field width. */ + /* Pad to full field width. */ if ( ( nblanks > 0 ) && !no_leading_blank ) @@ -788,11 +788,11 @@ write_float (fnode *f, const char *source, int len) else fin = '+'; - if (nb > 7) + if (nb > 8) memcpy(p + nb - 8, "Infinity", 8); else memcpy(p + nb - 3, "Inf", 3); - if (nb < 8 && nb > 3) + if (nb < 9 && nb > 3) p[nb - 4] = fin; else if (nb > 8) p[nb - 9] = fin; |