cimag
double cimag(double complex);
#define cimag(x) __tg_simple(x, cimag)
PROTO_NORMAL(cimag);
w = (M_PI_2 - creal (w)) - cimag (w) * I;
zz = 1.0 - creal(zz) - cimag(zz) * I;
y = cimag (z);
y = cimag (z);
_cchsh( cimag(z), &ch, &sh );
y = cimag(z);
y = cimag (z);
DEF_STD(cimag);
LDBL_MAYBE_CLONE(cimag);
rr = atan2 (cimag (z), creal (z));
y = cimag (z);
cchsh( cimag (z), &ch, &sh );
y = cimag(z);
y = cimag (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;
y = fabs (2.0 * cimag(z));
y = cimag(z);
"conj(%#.2g + %#.2gI): wrong value", creal(in), cimag(in));
cimag(in), fetestexcept(FE_ALL_EXCEPT));
"conjl(%#.2g + %#.2gI): wrong value", creal(in), cimag(in));
cimag(in), fetestexcept(FE_ALL_EXCEPT));
static double (*libcimag)(double complex) = cimag;
__imag__ expected = -cimag(in);
"conjf(%#.2g + %#.2gI): wrong value", creal(in), cimag(in)
cimag(in), fetestexcept(FE_ALL_EXCEPT));
printf("%a %a\n", creal(z), cimag(z));
printf("%a %a\n", creal(ctanhf(z)), cimag(ctanhf(z)));
fpequal_cs(cimag(_x), cimag(_y), (checksign & CS_IMAG) != 0);
fpequal_cs(cimag(_x), cimag(_y), (checksign & CS_IMAG) != 0); \
fpequal_tol(cimag(_x), cimag(_y), tol, flags)); \