From 8c7cdf31bd692e1697a5a01664717c3b9dbffc59 Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Sun, 3 Mar 2019 21:19:47 -0500
Subject: fill out special cases outlined in C18 annex G

---
 src/complex/csin.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/complex/csin.c')

diff --git a/src/complex/csin.c b/src/complex/csin.c
index 13006c01..1f96a7a2 100644
--- a/src/complex/csin.c
+++ b/src/complex/csin.c
@@ -5,7 +5,7 @@
 
 TYPE complex TGFN(csin)(TYPE complex z)
 {
-	return z;
+	return TGCMPLX(0.0, -TGFN(csinh)(I * z));
 }
 
 /*d
-- 
cgit v1.2.1