r = fesetenv(&env);
if (r != 0)
error("fesetenv(&env) = %d\n", r);
r = fegetround();
if (r != i)
error("fesetenv(&env) did not restore 0x%x, got 0x%x\n", i, r);
r = fesetenv(&env);
if (r != 0)
error("fesetenv(&env) = %d\n", r);
r = fegetround();
if (r != i)
error("fesetenv(&env) did not restore 0x%x, got 0x%x\n", i, r);