diff options
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 749a34a4834..1af8537d751 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)) |