x = random_greater (0.0); check_ext ("ldexp (x, 0) == x", FUNC(ldexp) (x, 0L), x, x);
ldexp_test (void){  check ("ldexp (0, 0) == 0", FUNC(ldexp) (0, 0), 0);  check_isinfp ("ldexp (+inf, 1) == +inf", FUNC(ldexp) (plus_infty, 1));  check_isinfn ("ldexp (-inf, 1) == -inf", FUNC(ldexp) (minus_infty, 1));  check_isnan ("ldexp (NaN, 1) == NaN", FUNC(ldexp) (nan_value, 1));  check ("ldexp (0.8, 4) == 12.8", FUNC(ldexp) (0.8L, 4), 12.8L);  check ("ldexp (-0.854375, 5) == -27.34", FUNC(ldexp) (-0.854375L, 5), -27.34L);}