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/catan.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/complex/catan.c b/src/complex/catan.c
index 4ae60ce6..bbe06ccb 100644
--- a/src/complex/catan.c
+++ b/src/complex/catan.c
@@ -5,7 +5,7 @@
 
 TYPE complex TGFN(catan)(TYPE complex z)
 {
-	return z;
+	return TGCMPLX(0.0, -TGFN(catanh)(I * z));
 }
 
 /*d
-- 
cgit v1.2.1