scalbn
#define scalbn(x, y) __tg_simplev(x, scalbn, x, y)
#define scalbn ldexp
#undef scalbn
ENTRY(scalbn)
double scalbn(double x, int n)