summaryrefslogtreecommitdiff
path: root/math/s_cacosh.c
diff options
context:
space:
mode:
Diffstat (limited to 'math/s_cacosh.c')
-rw-r--r--math/s_cacosh.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/math/s_cacosh.c b/math/s_cacosh.c
index 1ae8708d49..e921f0763e 100644
--- a/math/s_cacosh.c
+++ b/math/s_cacosh.c
@@ -1,5 +1,5 @@
/* Return arc hyperbole cosine for double value.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997, 2006 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
@@ -73,6 +73,9 @@ __cacosh (__complex__ double x)
y = __csqrt (y);
+ if (__real__ x < 0.0)
+ y = -y;
+
__real__ y += __real__ x;
__imag__ y += __imag__ x;