log1p
#define log1p(x) __tg_simple(x, log1p)
*rx = log1p(Am1 + sqrt(Am1 * (A + 1)));
*rx = log1p((y - 1) + sqrt((y - 1) * (y + 1)));
rx = log1p(4 * ax / sum_squares(ax - 1, ay)) / 4;
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));
double log1p(double);
w =log1p(fabs(x)+t/(one+sqrt(one+t)));
return (CMPLX(log1p(ay2l + t + sh) / 2, v));
return (CMPLX(log1p(ay * ay) / 2, v));
__weak_reference(log1p, log1pl);
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); \
TGMACRO_REAL(log1p)
PASS_REAL_ARG_REAL_RET(log1p));