1 2 3 4 5 6 7
#include "libm.h" double (cimag)(double complex z) { union dcomplex u = {z}; return u.a[1]; }