diff options
| -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)) |