diff options
| author | Roger Sayle <roger@eyesopen.com> | 2004-08-01 13:40:52 +0000 |
|---|---|---|
| committer | Roger Sayle <sayle@gcc.gnu.org> | 2004-08-01 13:40:52 +0000 |
| commit | 023d776a1124e7cdcc9bb51716f1aed6b0ff3735 (patch) | |
| tree | 3d27d1a3a22ca9d52450ebda4c122a3cb9833e12 | |
| parent | 12e4afe4e10558fce82b33bd41a0091bc412a0dd (diff) | |
| download | gcc-023d776a1124e7cdcc9bb51716f1aed6b0ff3735.zip gcc-023d776a1124e7cdcc9bb51716f1aed6b0ff3735.tar.gz gcc-023d776a1124e7cdcc9bb51716f1aed6b0ff3735.tar.bz2 | |
write.c (write_float): Use the slightly more portable isnan in preference to isinf.
* io/write.c (write_float): Use the slightly more portable isnan
in preference to isinf.
From-SVN: r85407
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3168f4e..de627aa 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2004-08-01 Roger Sayle <roger@eyesopen.com> + + * io/write.c (write_float): Use the slightly more portable isnan + in preference to isinf. + 2004-07-18 Bud Davis <bdavis9659@comcast.net> * configure.ac: Add check for LFS support. diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 749a34a..1af8537 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -523,7 +523,7 @@ write_float (fnode *f, const char *source, int len) } memset(p, ' ', nb); - res = isinf (n); + res = !isnan (n); if (res != 0) { if (signbit(n)) |