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

diff --git a/src/complex/csin.c b/src/complex/csin.c
new file mode 100644
index 00000000..246a4595
--- /dev/null
+++ b/src/complex/csin.c

@@ -0,0 +1,9 @@

+#include "libm.h"

+

+/* sin(z) = -i sinh(i z) */

+

+double complex csin(double complex z)

+{

+ z = csinh(cpack(-cimag(z), creal(z)));

+ return cpack(cimag(z), -creal(z));

+}