musl - musl - an implementation of the standard library for Linux-based systems

diff --git a/src/complex/cacoshl.c b/src/complex/cacoshl.c
index d3eaee20..3a284be9 100644
--- a/src/complex/cacoshl.c
+++ b/src/complex/cacoshl.c

@@ -8,7 +8,10 @@ long double complex cacoshl(long double complex z)

#else

long double complex cacoshl(long double complex z)

{

+ int zineg = signbit(cimagl(z));

+

z = cacosl(z);

- return CMPLXL(-cimagl(z), creall(z));

+ if (zineg) return CMPLXL(cimagl(z), -creall(z));

+ else return CMPLXL(-cimagl(z), creall(z));

}

#endif