From 05e166c887612250d461b5fe7c0f0064cd1a0c41 Mon Sep 17 00:00:00 2001 From: Joseph Myers Date: Wed, 3 Apr 2013 16:51:46 +0000 Subject: Fix missing underflow from cexp (bug 14478). --- math/s_cexpl.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'math/s_cexpl.c') diff --git a/math/s_cexpl.c b/math/s_cexpl.c index 1bfce78aeb..d827bc3de4 100644 --- a/math/s_cexpl.c +++ b/math/s_cexpl.c @@ -74,6 +74,18 @@ __cexpl (__complex__ long double x) __real__ retval = exp_val * cosix; __imag__ retval = exp_val * 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 { -- cgit v1.2.3