expm1
#define expm1(x) __tg_simple(x, expm1)
t = expm1(fabs(x));
t = expm1(fabs(x));
double expm1(double);
__weak_reference(expm1, expm1l);
t = expm1(two*fabs(x));
t = expm1(-two*fabs(x));
test(expm1, x, result, exceptmask, excepts); \
TGMACRO_REAL(expm1)
PASS_REAL_ARG_REAL_RET(expm1));