diff options
Diffstat (limited to 'math/s_clogl.c')
| -rw-r--r-- | math/s_clogl.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/math/s_clogl.c b/math/s_clogl.c index bdf82c1..1b4a304 100644 --- a/math/s_clogl.c +++ b/math/s_clogl.c @@ -74,7 +74,11 @@ __clogl (__complex__ long double x) { long double absy2 = absy * absy; if (absy2 <= LDBL_MIN * 2.0L) - __real__ result = absy2 / 2.0L - absy2 * absy2 / 4.0L; + { + long double force_underflow = absy2 * absy2; + __real__ result = absy2 / 2.0L; + math_force_eval (force_underflow); + } else __real__ result = __log1pl (absy2) / 2.0L; } |