From f0302940e7c2acb587971e3c99dfbd00aa4e2134 Mon Sep 17 00:00:00 2001 From: Joseph Myers Date: Fri, 26 Apr 2013 19:25:19 +0000 Subject: Fix csin, csinh, ccos, ccosh missing underflows (bug 15405). --- math/s_ccosh.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'math/s_ccosh.c') diff --git a/math/s_ccosh.c b/math/s_ccosh.c index 2c05b63de4..05b146ecbf 100644 --- a/math/s_ccosh.c +++ b/math/s_ccosh.c @@ -82,6 +82,19 @@ __ccosh (__complex__ double x) __real__ retval = __ieee754_cosh (__real__ x) * cosix; __imag__ retval = __ieee754_sinh (__real__ x) * sinix; } + + if (fabs (__real__ retval) < DBL_MIN) + { + volatile double force_underflow + = __real__ retval * __real__ retval; + (void) force_underflow; + } + if (fabs (__imag__ retval) < DBL_MIN) + { + volatile double force_underflow + = __imag__ retval * __imag__ retval; + (void) force_underflow; + } } else { -- cgit v1.2.3