creal
double creal(double complex);
#define creal(x) __tg_simple(x, creal)
PROTO_NORMAL(creal);
w = (M_PI_2 - creal (w)) - cimag (w) * I;
zz = 1.0 - creal(zz) - cimag(zz) * I;
x = creal (z);
x = creal (z);
w = cos(creal (z)) * ch - (sin (creal (z)) * sh) * I;
x = creal(z);
x = creal (z);
rr = atan2 (cimag (z), creal (z));
x = creal (z);
DEF_STD(creal);
LDBL_MAYBE_CLONE(creal);
w = sin (creal(z)) * ch + (cos (creal(z)) * sh) * I;
x = creal(z);
x = creal (z);
d = cos (2.0 * creal (z)) + cosh (2.0 * cimag (z));
w = sin (2.0 * creal(z)) / d + (sinh (2.0 * cimag(z)) / d) * I;
x = fabs (2.0 * creal (z));
x = creal(z);
"conj(%#.2g + %#.2gI): wrong value", creal(in), cimag(in));
"conj(%#.2g + %#.2gI): threw an exception: %#x", creal(in),
"conjl(%#.2g + %#.2gI): wrong value", creal(in), cimag(in));
"conjl(%#.2g + %#.2gI): threw an exception: %#x", creal(in),
static double (*libcreal)(double complex) = creal;
"conjf(%#.2g + %#.2gI): wrong value", creal(in), cimag(in)
"conj(%#.2g + %#.2gI): threw an exception: %#x", creal(in),
printf("%a %a\n", creal(z), cimag(z));
printf("%a %a\n", creal(ctanhf(z)), cimag(ctanhf(z)));
fpequal_cs(creal(_x), creal(_y), (checksign & CS_REAL) != 0) &&
fpequal_cs(creal(_x), creal(_y), (checksign & CS_REAL) != 0) && \
bool equal_tol = (fpequal_tol(creal(_x), creal(_y), tol, flags) && \