1 files changed, 8 insertions, 0 deletions
diff --git a/libc-top-half/musl/src/complex/ccos.c b/libc-top-half/musl/src/complex/ccos.c
new file mode 100644
index 0000000..f32e1fa
--- /dev/null
+++ b/libc-top-half/musl/src/complex/ccos.c
@@ -0,0 +1,8 @@
+#include "complex_impl.h"
+
+/* cos(z) = cosh(i z) */
+
+double complex ccos(double complex z)
+{
+	return ccosh(CMPLX(-cimag(z), creal(z)));
+}