From 2c01a7204f0a9f488e79f90b4eff288b03f88439 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 17 Jul 2005 20:28:14 +0000 Subject: [PATCH] write.c (write_float): Fix field width checks for printing 'Infinity' or 'Inf'. 2005-07-14 Jerry DeLisle * io/write.c (write_float): Fix field width checks for printing 'Infinity' or 'Inf'. (output_float): Fix typo in comment. From-SVN: r102115 --- libgfortran/ChangeLog | 6 ++++++ 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 + + * 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 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; -- 2.30.2