diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-17 20:28:14 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-17 20:28:14 +0000 |
| commit | ca8c15f519a7c2a1563ed68db8a32f21c858f403 (patch) | |
| tree | 657e52b4b7717315c308f9e9aba4fdb3676ec903 /libgfortran | |
| parent | 1e89922d70d2be6ecbf5a5d679536024dea28de6 (diff) | |
| download | gcc-ca8c15f519a7c2a1563ed68db8a32f21c858f403.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102115 138bc75d-0d04-0410-961f-82ee72b054a4
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; |