mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-07 20:10:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/12839 (incorrect IO of Inf)

Browse Source 
2004-06-27  Bud Davis  <bdavis9659@comcast.net>

        PR gfortran/12839
        * io/write.c (write_float): check signbit for Infinity.

From-SVN: r83757
This commit is contained in:
Bud Davis 2004-06-28 01:30:26 +00:00 committed by Bud Davis
parent e6d6c95a52
commit 519b0e16cd
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-06-27 Bud Davis <bdavis9659@comcast.net>
PR gfortran/12839
* io/write.c (write_float): check signbit for Infinity.
2004-06-26 Bud Davis <bdavis9659@comcast.net>
PR gfortran/16196

8
libgfortran/io/write.c
View File

@ -523,13 +523,13 @@ write_float (fnode *f, const char *source, int len)
}
memset(p, ' ', nb);
res = isinf (n);
res = isinf (n);
if (res != 0)
{
if (res > 0)
fin = '+';
else
if (signbit(n))
fin = '-';
else
fin = '+';
if (nb > 7)
memcpy(p + nb - 8, "Infinity", 8);