ldexp
#define ecb_ldexpf(x,e) (float) ldexp ((double) (x), (e))
r = ldexp (x * (0.5 / 0x10000000000000U), e - 1022);
#define ldexp(x, y) __tg_simplev(x, ldexp, x, y)
#define scalbn ldexp
d2 = ldexp(d0, -i);
return (ldexp(1 + (hi - (lo - c)), k));
return (isfinite(x) ? ldexp(1., -5000) : 0);
return (isfinite(x) ? ldexp(1., 5000) : x);
g = ldexp(g, -j);
double ldexp(double, int);
return (ldexp(sum.hi, scale));
zs = ldexp(zs, -spread);
return (ldexp(r.hi + adj, spread));
return (ldexp(r.hi + adj, spread));
return (ldexp(sum.hi, scale));
ATF_CHECK_EQ(exp2(i), ldexp(1.0, i));
test2(atan2, 0.0, ldexp(z, e), 0.0, 0);
test2(atan2, -0.0, ldexp(z, e), -0.0, 0);
test2(atan2, 0.0, ldexp(-z, e), (double)pi, FE_INEXACT);
test2(atan2, -0.0, ldexp(-z, e), (double)-pi, FE_INEXACT);
test2(atan2, ldexp(z, e), 0.0, (double)pi / 2, FE_INEXACT);
test2(atan2, ldexp(z, e), -0.0, (double)pi / 2, FE_INEXACT);
test2(atan2, ldexp(-z, e), 0.0, (double)-pi / 2, FE_INEXACT);
test2(atan2, ldexp(-z, e), -0.0, (double)-pi / 2, FE_INEXACT);
test2(atan2, ldexp(z, e), INFINITY, 0.0, 0);
test2(atan2, ldexp(-z,e), INFINITY, -0.0, 0);
test2(atan2, ldexp(z, e), -INFINITY, (double)pi, FE_INEXACT);
test2(atan2, ldexp(-z,e), -INFINITY, (double)-pi, FE_INEXACT);
test2(atan2, INFINITY, ldexp(z,e), (double)pi/2, FE_INEXACT);
test2(atan2, INFINITY, ldexp(-z,e), (double)pi/2, FE_INEXACT);
test2(atan2, -INFINITY, ldexp(z,e), (double)-pi/2,FE_INEXACT);
test2(atan2, -INFINITY, ldexp(-z,e),(double)-pi/2,FE_INEXACT);
(tol) * ldexp(1.0, 1 - DBL_MANT_DIG), (excepts)); \
(tol) * ldexp(1.0, 1 - DBL_MANT_DIG), (excepts)); \
ATF_CHECK_EQ(i, log2(ldexp(1.0, i)));
double (ldexp)(double x, int e) { n_double++; }
PASS_REAL_FIXED_ARG_REAL_RET(ldexp, 1) &&
PASS_REAL_FIXED_ARG_REAL_RET(ldexp, ld) &&
PASS_REAL_FIXED_ARG_REAL_RET(ldexp, ldc));