fabsl
long double fabsl(long double);
#define fabs(x) __tg_impl_full(x, x, x, fabs, fabsf, fabsl, \
__strong_alias(fabsl, fabs);
__strong_alias(fabsl, fabs);
__strong_alias(fabsl, fabs);
__strong_alias(fabsl, fabs);
__strong_alias(fabsl, fabs);
__strong_alias(fabsl, fabs);
__strong_alias(fabsl, fabs);
w = one-fabsl(x);
else z=atanl(fabsl(y/x)); /* safe to do y/x */
return one / fabsl (x);
ax = fabsl (x);
if (fabsl(x) >= 0.67434) {
x = fabsl (x);
y = fabsl(y);
t = expm1l(fabsl(x));
t = expl(fabsl(x));
return half*expl(fabsl(x));
w = expl(half*fabsl(x));
return one / fabsl (x);
return one / fabsl (t); /* -integer */
nadj = logl (pi / fabsl (t * x));
ya = fabsl(y);
yb = 0.5L * fabsl(w);
if( (w == x) && (fabsl(y) < 32768.0) )
x = fabsl(x);
t = expm1l(fabsl(x));
return h*expl(fabsl(x));
w = expl(0.5*fabsl(x));
q = fabsl(x);
z = fabsl(z) * stirf(q);
if (fabsl(x) >= 0.67434) {
w = logl(fabsl(x))+ln2;
t = fabsl(x);
w =log1pl(fabsl(x)+t/(one+sqrtl(one+t)));
s = fabsl (x) - one;
x = fabsl (x);
s = fabsl (x) - one;
x = fabsl (x);
y = fabsl(y);
t = expm1l(two*fabsl(x));
t = expm1l(-two*fabsl(x));
x = fabsl(x);
if (fabsl(x) > 1.0L) {
if(fabsl(x) <= 0.5L) {
if(fabsl(x) <= 0.5L) {
r = scale * fabsl((0.5L * y) / t);
t = scale * fabsl((0.5L * y) / r);
r = fabsl(y);
if ((fabsl(x) > 4.0L) || (fabsl(y) > 4.0L)) {
while (fabsl(t/d) > MACHEPL);
if (fabsl(d) < 0.25L) {
d = fabsl(d);
x = fabsl(2.0L * creall(z));
y = fabsl(2.0L * cimagl(z));
if (fabsl(volat1) > 1.0L)
if (fabsl (err) > (err_thresh * MACHEPL))
if (fabsl(volat1) > 1.0L)
if (fabsl (err) > (err_thresh * MACHEPL))
long double fabsl (long double);
long double fabsl (long double);
if (fabsl(volat1) > 1.0L)
if (fabsl (err) > (err_thresh * MACHEPL))
if (fabsl(volat1) > 1.0L)
if (fabsl (err) > (err_thresh * MACHEPL))
{"fabsl", fabsl, &ONEL, &ONEL, 0},
{"fabsl", fabsl, &MONEL, &ONEL, 0},
{"fabsl", fabsl, &ZEROL, &ZEROL, 0},
{"fabsl", fabsl, &NEGZEROL, &ZEROL, 0},
{"fabsl", fabsl, &INFINITYL, &INFINITYL, 0},
{"fabsl", fabsl, &MINFL, &INFINITYL, 0},
long double fabsl (long double);
{"fabsl", fabsl, &ONEL, &ONEL, 0},
{"fabsl", fabsl, &MONEL, &ONEL, 0},
{"fabsl", fabsl, &ZEROL, &ZEROL, 0},
{"fabsl", fabsl, &NEGZEROL, &ZEROL, 0},
{"fabsl", fabsl, &INFINITYL, &INFINITYL, 0},
{"fabsl", fabsl, &MINFL, &INFINITYL, 0},
long double fabsl (long double);
assert(fabsl(lgammal(3.0L) - M_LN2l) < LDBL_EPSILON && signgam == 1);
if (fabsl(nums[i]) <= 1) {
CMPLXL(acosh(fabsl(nums[i])),
-acosh(fabsl(nums[i]))), 1);
acosh(fabsl(nums[i]))), 1);
return (fabsl(x) == fabsl(y));
ret = fabsl(x - y) <= fabsl(tol);
ret = fabsl(x - y) <= fabsl(y * tol);
long double _diff = eq ? 0.0L : fabsl(_x - _y); \
#x, _x, #y, _y, _diff, fabsl(_y * tol)); \
ATF_CHECK(fabsl(sinl(ld_pi_odd[i])) < LDBL_EPSILON);
ATF_CHECK(fabsl(tanl(ld_pi_odd[i])) < LDBL_EPSILON);
ATF_CHECK(fabsl(sinl(-ld_pi_odd[i])) < LDBL_EPSILON);
ATF_CHECK(fabsl(tanl(-ld_pi_odd[i])) < LDBL_EPSILON);
ATF_CHECK(fabsl(sinl(ld_pi_odd[i] * 2)) < LDBL_EPSILON);
ATF_CHECK(fabsl(tanl(ld_pi_odd[i] * 2)) < LDBL_EPSILON);
ATF_CHECK(fabsl(sinl(-ld_pi_odd[i] * 2)) < LDBL_EPSILON);
ATF_CHECK(fabsl(tanl(-ld_pi_odd[i] * 2)) < LDBL_EPSILON);
diff = fabsl(d1 - d2);