__ldexp_cexpf
float complex __ldexp_cexpf(float complex,int);
z = __ldexp_cexpf(CMPLXF(fabsf(x), y), -1);
return (__ldexp_cexpf(z, 0));