diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-128ibm/s_atanl.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128ibm/s_atanl.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sysdeps/ieee754/ldbl-128ibm/s_atanl.c b/sysdeps/ieee754/ldbl-128ibm/s_atanl.c index 41dde23..6ddf4b1 100644 --- a/sysdeps/ieee754/ldbl-128ibm/s_atanl.c +++ b/sysdeps/ieee754/ldbl-128ibm/s_atanl.c @@ -59,6 +59,7 @@ <http://www.gnu.org/licenses/>. */ +#include <float.h> #include <math.h> #include <math_private.h> #include <math_ldbl_opt.h> @@ -198,6 +199,11 @@ __atanl (long double x) if (k <= 0x3c800000) /* |x| <= 2**-55. */ { + if (fabsl (x) < LDBL_MIN) + { + long double force_underflow = x * x; + math_force_eval (force_underflow); + } /* Raise inexact. */ if (1e300L + x > 0.0) return x; |