summaryrefslogtreecommitdiff
path: root/src/math
diff options
context:
space:
mode:
Diffstat (limited to 'src/math')
-rw-r--r--src/math/modfl.c2
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. */