log1pl
long double log1pl(long double);
PROTO_NORMAL(log1pl);
return log1pl(t+sqrtl(2.0L*t+t*t));
t = 0.5*log1pl(t+t*u.value/(one-u.value));
t = 0.5*log1pl((u.value+u.value)/(one-u.value));
w = log1pl (u.value + t / (one + sqrtl (one + t)));
DEF_STD(log1pl);
return log1pl(t+sqrtl(2.0*t+t*t));
t = 0.5*log1pl(t+t*x/(one-x));
t = 0.5*log1pl((x+x)/(one-x));
w =log1pl(fabsl(x)+t/(one+sqrtl(one+t)));
DEF_STD(log1pl);
{"log1p", log1pl, 0.41421356237309504880168872420969798L,
long double log1pl (long double);
{"log1pl", log1pl, &NANL, &NANL, 0},
{"log1pl", log1pl, &ZEROL, &ZEROL, 0},
{"log1pl", log1pl, &NEGZEROL, &NEGZEROL, 0},
{"log1pl", log1pl, &MONEL, &MINFL, 0},
{"log1pl", log1pl, &MTWOL, &NANL, 0},
{"log1pl", log1pl, &INFINITYL, &INFINITYL, 0},
long double log1pl (long double);
{"log1pl", log1pl, &NANL, &NANL, 0},
{"log1pl", log1pl, &ZEROL, &ZEROL, 0},
{"log1pl", log1pl, &NEGZEROL, &NEGZEROL, 0},
{"log1pl", log1pl, &MONEL, &MINFL, 0},
{"log1pl", log1pl, &MTWOL, &NANL, 0},
{"log1pl", log1pl, &INFINITYL, &INFINITYL, 0},
long double log1pl (long double);
test_tol(log1pl, tests[i].x - 1, tests[i].logex,
test_tol(log1pl, 0x0.33333333333333332p0L,
test_tol(log1pl, -0x0.33333333333333332p0L,
test(log1pl, x, result, exceptmask, excepts); \