1#include "libm.h"
2
3// FIXME: Hull et al. "Implementing the complex arcsine and arccosine functions using exception
4// handling" 1997
5
6/* acos(z) = pi/2 - asin(z) */
7
8double complex cacos(double complex z) {
9    z = casin(z);
10    return CMPLX(M_PI_2 - creal(z), -cimag(z));
11}
12