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

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

diff --git a/src/complex/carg.c b/src/complex/carg.c
index 092b1194..b4e5b0d8 100644
--- a/src/complex/carg.c
+++ b/src/complex/carg.c
@@ -1,11 +1,12 @@
 # define TGSOURCE "../complex/carg.c"
 #include "_tgmath.h"
+#include "math.h"
 
 #include <complex.h>
 
 TYPE TGFN(carg)(TYPE complex z)
 {
-	return z;
+	return TGFN(atan2)(TGFN(cimag)(z), TGFN(creal)(z));
 }
 
 /*d
-- 
cgit v1.2.1