4 files changed, 14 insertions, 4 deletions
diff --git a/src/complex/_Complex_I.c b/src/complex/_Complex_I.c
index 0cb6aede..a250d031 100644
--- a/src/complex/_Complex_I.c
+++ b/src/complex/_Complex_I.c
@@ -1,6 +1,8 @@
 #include <complex.h>
 
-#define _Complex_I            (const float _Complex)1 /* TODO: imaginary unit */
+#define _Complex_I \
+	 (((union { _Complex float __c; float __f[2]; }){.__f = {0., 1.} }).__c)
+
 
 /*
 STDC(199901)
diff --git a/src/complex/cimag.c b/src/complex/cimag.c
index 414ecdba..c08ae122 100644
--- a/src/complex/cimag.c
+++ b/src/complex/cimag.c
@@ -5,7 +5,11 @@
 
 TYPE TGFN(cimag)(TYPE complex z)
 {
-	return 0.0;
+	union {
+		complex TYPE c;
+		TYPE f[2];
+	} u = { .c = z };
+	return z[1];
 }
 
 /*d
diff --git a/src/complex/conj.c b/src/complex/conj.c
index f1631106..18e50c9c 100644
--- a/src/complex/conj.c
+++ b/src/complex/conj.c
@@ -5,7 +5,7 @@
 
 TYPE complex TGFN(conj)(TYPE complex z)
 {
-	return 0.0;
+	return TGFN(creal)(z) - TGFN(cimag)(z);
 }
 
 /*d
diff --git a/src/complex/creal.c b/src/complex/creal.c
index 86f3cb1b..eac2576e 100644
--- a/src/complex/creal.c
+++ b/src/complex/creal.c
@@ -5,7 +5,11 @@
 
 TYPE TGFN(creal)(TYPE complex z)
 {
-	return 0.0;
+	union {
+		complex TYPE c;
+		TYPE f[2];
+	} u = { .c = z };
+	return z[0];
 }
 
 /*d