diff options
Diffstat (limited to 'math/s_ctanhl.c')
| -rw-r--r-- | math/s_ctanhl.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/math/s_ctanhl.c b/math/s_ctanhl.c index 6b9dfc5bb2..9c15bb3a4a 100644 --- a/math/s_ctanhl.c +++ b/math/s_ctanhl.c @@ -117,6 +117,16 @@ __ctanhl (__complex__ long double x) __real__ res = sinhrx * coshrx / den; __imag__ res = sinix * cosix / den; } + if (fabsl (__real__ res) < LDBL_MIN) + { + long double force_underflow = __real__ res * __real__ res; + math_force_eval (force_underflow); + } + if (fabsl (__imag__ res) < LDBL_MIN) + { + long double force_underflow = __imag__ res * __imag__ res; + math_force_eval (force_underflow); + } } return res; |