scalbln
#define scalbln(x, y) __tg_simplev(x, scalbln, x, y)
double scalbln(double, long);
double (scalbln)(double x, long n) { n_double++; }
PASS_REAL_FIXED_ARG_REAL_RET(scalbln, i) &&
PASS_REAL_FIXED_ARG_REAL_RET(scalbln, 1.l) &&
PASS_REAL_FIXED_ARG_REAL_RET(scalbln, dc));