FLT_ULP
test_tol(cexpf, x, result, tol * FLT_ULP()); \
test_tol(cexpf, cpackl(a, b), cpackl(x, y), 1 * FLT_ULP());
cpackl(INFINITY, 4.80265603e-07), 2 * FLT_ULP());
cpackl(INFINITY, 1.7101492622e-06f), 2 * FLT_ULP());
cpackl(INFINITY, 3.396809344e+38f), 2 * FLT_ULP());
cpackl(INFINITY, 1.1163382522e+16f), 2 * FLT_ULP());
cpackl(INFINITY, 5.7878851079e+37f), 2 * FLT_ULP());
test_tol(func##f, x, result, tol * FLT_ULP()); \
test_tol(func##f, x, result, (tol) * FLT_ULP()); \