summaryrefslogtreecommitdiff
path: root/math/s_cacos.c
diff options
context:
space:
mode:
Diffstat (limited to 'math/s_cacos.c')
-rw-r--r--math/s_cacos.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/math/s_cacos.c b/math/s_cacos.c
index d0aaba4e6a..2cacaf5d1b 100644
--- a/math/s_cacos.c
+++ b/math/s_cacos.c
@@ -1,5 +1,5 @@
/* Return cosine of complex double value.
- Copyright (C) 1997-2014 Free Software Foundation, Inc.
+ Copyright (C) 1997-2015 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
@@ -34,6 +34,8 @@ __cacos (__complex__ double x)
y = __casin (x);
__real__ res = (double) M_PI_2 - __real__ y;
+ if (__real__ res == 0.0)
+ __real__ res = 0.0;
__imag__ res = -__imag__ y;
}
else