float crealf(float complex);
long double creall(long double complex);
-#define __CREALIMAG(x, t, i) \
- ((union { _Complex t __z; t __xy[2]; }){(_Complex t)(x)}.__xy[i])
+#define __CIMAG(x, t) \
+ ((union { _Complex t __z; t __xy[2]; }){(_Complex t)(x)}.__xy[1])
-#define creal(x) __CREALIMAG(x, double, 0)
-#define crealf(x) __CREALIMAG(x, float, 0)
-#define creall(x) __CREALIMAG(x, long double, 0)
+#define creal(x) ((double)(x))
+#define crealf(x) ((float)(x))
+#define creall(x) ((long double)(x))
-#define cimag(x) __CREALIMAG(x, double, 1)
-#define cimagf(x) __CREALIMAG(x, float, 1)
-#define cimagl(x) __CREALIMAG(x, long double, 1)
+#define cimag(x) __CIMAG(x, double)
+#define cimagf(x) __CIMAG(x, float)
+#define cimagl(x) __CIMAG(x, long double)
#ifdef __cplusplus
}