diff options
| -rw-r--r-- | src/math/modfl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/math/modfl.c b/src/math/modfl.c index 6520a1c2..f6d62444 100644 --- a/src/math/modfl.c +++ b/src/math/modfl.c @@ -81,7 +81,7 @@ long double modfl(long double x, long double *iptr) return x - ux.e; } else if (e >= LDBL_MANT_DIG - 1) { /* x has no fraction part. */ *iptr = x; - if (e == LDBL_MAX_EXP && (ux.bits.manh|ux.bits.manl)) /* nan */ + if (e == LDBL_MAX_EXP && ((ux.bits.manh&~LDBL_NBIT)|ux.bits.manl)) /* nan */ return x; return zero[ux.bits.sign]; } else { /* Fraction part is in manl. */ |