ldexpl
long double ldexpl(long double, int);
__strong_alias(ldexpl, ldexp);
LDBL_PROTO_NORMAL(ldexpl);
x = ldexpl( x, n );
px = ldexpl (1.0L, k);
x = 1.0L + ldexpl( x, 1 );
x = ldexpl( x, n );
x = ldexpl( x, 1 ) - 1.0L; /* 2x - 1 */
y = y - ldexpl( z, -1 ); /* -0.5x^2 + ... */
x = ldexpl( x, 1 ) - 1.0L; /* 2x - 1 */
y = y - ldexpl( z, -1 ); /* -0.5x^2 + ... */
x = ldexpl( x, 1 ) - 1.0L; /* 2x - 1 */
z = y - ldexpl( z, -1 ); /* y - 0.5 * z */
w = w - ldexpl( z, -1 ); /* w - 0.5 * z */
w = ldexpl( w, -LNXT ); /* divide by NXT */
w = ldexpl( Ga+Ha, LNXT );
z = ldexpl( z, i ); /* multiply by integer power of 2 */
w = ldexpl( y, -1 );
w = ldexpl( w, 1 );
t = ldexpl( x, LNXT );
t = ldexpl( t, -LNXT );
px = ldexpl(1.0L, k);
zs = ldexpl(zs, -spread);
p = ldexpl(copysignl(0x1p-16382L, r), -spread);
return (ldexpl(r, spread));
DEF_STD(ldexpl);
long double ldexpl (long double, int);
long double ldexpl (long double, int);
a = ldexpl(115 * 0x1p-8, exp);
b = ldexpl(252 * 0x1p-8, exp);
ATF_CHECK_EQ(creall(result), ldexpl(14 * 0x1p-4, exp / 2));
ATF_CHECK_EQ(cimagl(result), ldexpl(9 * 0x1p-4, exp / 2));
a = ldexpl(-11 * 0x1p-6, exp);
b = ldexpl(60 * 0x1p-6, exp);
ATF_CHECK_EQ(creall(result), ldexpl(5 * 0x1p-3, exp / 2));
ATF_CHECK_EQ(cimagl(result), ldexpl(6 * 0x1p-3, exp / 2));
a = ldexpl(225 * 0x1p-8, exp);
ATF_CHECK_EQ(creall(result), ldexpl(15 * 0x1p-4, exp / 2));
b = ldexpl((long double)sq_mantbits,
x = ldexpl(mantbits, (exp - 2 - mantdig) / 2);
ATF_CHECK_EQ(exp2l(i), ldexpl(1.0, i));
(tol) * ldexpl(1.0, 1 - LDBL_MANT_DIG), (excepts)); \
test2(atan2l, 0.0, ldexpl(z, e), 0.0, 0);
test2(atan2l, -0.0, ldexpl(z, e), -0.0, 0);
test2(atan2l, 0.0, ldexpl(-z, e), pi, FE_INEXACT);
test2(atan2l, -0.0, ldexpl(-z, e), -pi, FE_INEXACT);
test2(atan2l, ldexpl(z, e), 0.0, pi / 2, FE_INEXACT);
test2(atan2l, ldexpl(z, e), -0.0, pi / 2, FE_INEXACT);
test2(atan2l, ldexpl(-z, e), 0.0, -pi / 2, FE_INEXACT);
test2(atan2l, ldexpl(-z, e), -0.0, -pi / 2, FE_INEXACT);
test2(atan2l, ldexpl(z, e), INFINITY, 0.0, 0);
test2(atan2l, ldexpl(-z,e), INFINITY, -0.0, 0);
test2(atan2l, ldexpl(z, e), -INFINITY, pi, FE_INEXACT);
test2(atan2l, ldexpl(-z,e), -INFINITY, -pi, FE_INEXACT);
test2(atan2l, INFINITY, ldexpl(z, e), pi / 2, FE_INEXACT);
test2(atan2l, INFINITY, ldexpl(-z, e), pi / 2, FE_INEXACT);
test2(atan2l, -INFINITY, ldexpl(z, e), -pi / 2, FE_INEXACT);
test2(atan2l, -INFINITY, ldexpl(-z, e), -pi / 2, FE_INEXACT);
test2(atan2l, ldexpl(1.0, 100 - LDBL_MAX_EXP),
ldexpl(1.0, LDBL_MAX_EXP - 100), 0.0, FE_INEXACT | FE_UNDERFLOW);
test2(atan2l, -ldexpl(1.0, 100 - LDBL_MAX_EXP),
ldexpl(1.0, LDBL_MAX_EXP - 100), -0.0, FE_INEXACT | FE_UNDERFLOW);
test2(atan2l, ldexpl(1.0, 100 - LDBL_MAX_EXP),
-ldexpl(1.0, LDBL_MAX_EXP - 100), pi, FE_INEXACT);
test2(atan2l, -ldexpl(1.0, 100 - LDBL_MAX_EXP),
-ldexpl(1.0, LDBL_MAX_EXP - 100), -pi, FE_INEXACT);
test2(atan2l, ldexpl(1.0, LDBL_MAX_EXP - 100),
ldexpl(1.0, 100 - LDBL_MAX_EXP), pi / 2, FE_INEXACT);
test2(atan2l, -ldexpl(1.0, LDBL_MAX_EXP - 100),
ldexpl(1.0, 100 - LDBL_MAX_EXP), -pi / 2, FE_INEXACT);
test2(atan2l, ldexpl(1.0, LDBL_MAX_EXP - 100),
-ldexpl(1.0, 100 - LDBL_MAX_EXP), pi / 2, FE_INEXACT);
test2(atan2l, -ldexpl(1.0, LDBL_MAX_EXP - 100),
-ldexpl(1.0, 100 - LDBL_MAX_EXP), -pi / 2, FE_INEXACT);
(tol) * ldexpl(1.0, 1 - LDBL_MANT_DIG), (excepts)); \
ATF_CHECK_EQ(i, log2l(ldexpl(1.0, i)));
log1p_ldbl_ulp = ldexpl(1.0, 1 - 64);
ldbl_max = ldexpl(1.0 - ldbl_eps / 2, LDBL_MAX_EXP);
ldbl_small = ldexpl(1.0, LDBL_MIN_EXP - LDBL_MANT_DIG);
#define FLT_ULP() ldexpl(1.0, 1 - FLT_MANT_DIG)
#define DBL_ULP() ldexpl(1.0, 1 - DBL_MANT_DIG)
#define LDBL_ULP() ldexpl(1.0, 1 - LDBL_MANT_DIG)