log1p
double log1p(double);
#define log1p(x) __tg_simple(x, log1p)
PROTO_NORMAL(log1p);
return log1p(t+sqrt(2.0*t+t*t));
t = 0.5*log1p(t+t*x/(one-x));
t = 0.5*log1p((x+x)/(one-x));
w =log1p(fabs(x)+t/(one+sqrt(one+t)));
DEF_STD(log1p);
LDBL_MAYBE_CLONE(log1p);
{"log1p", log1p, &NAN, &NAN, 0},
{"log1p", log1p, &ZERO, &ZERO, 0},
{"log1p", log1p, &MZERO, &MZERO, 0},
{"log1p", log1p, &MONE, &MINF, 0},
{"log1p", log1p, &MTWO, &NAN, 0},
{"log1p", log1p, &INF, &INF, 0},
double log1p (double);
test_tol(log1p, tests[i].x - 1, tests[i].logex,
test_tol(log1p, 0x0.3333333333333p0,
test_tol(log1p, -0x0.3333333333333p0,
test(log1p, x, result, exceptmask, excepts); \