1 #include "libm.h"
2 
3 /* cos(z) = cosh(i z) */
4 
ccos(double complex z)5 double complex ccos(double complex z) {
6     return ccosh(CMPLX(-cimag(z), creal(z)));
7 }
8