diff options
Diffstat (limited to 'math/s_ccoshl.c')
| -rw-r--r-- | math/s_ccoshl.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/math/s_ccoshl.c b/math/s_ccoshl.c index 4bbd311..18d3df0 100644 --- a/math/s_ccoshl.c +++ b/math/s_ccoshl.c @@ -82,6 +82,19 @@ __ccoshl (__complex__ long double x) __real__ retval = __ieee754_coshl (__real__ x) * cosix; __imag__ retval = __ieee754_sinhl (__real__ x) * sinix; } + + if (fabsl (__real__ retval) < LDBL_MIN) + { + volatile long double force_underflow + = __real__ retval * __real__ retval; + (void) force_underflow; + } + if (fabsl (__imag__ retval) < LDBL_MIN) + { + volatile long double force_underflow + = __imag__ retval * __imag__ retval; + (void) force_underflow; + } } else { |