13 r = fesetround(FE_UPWARD);
15 error("fesetround %d\n", r);
18 error("fegetround %x wanted %x\n", r, FE_UPWARD);
19 r = fesetround(FE_TONEAREST);
21 error("fesetround %d\n", r);
23 if (r != FE_TONEAREST)
24 error("fegetround %x wanted %x\n", r, FE_TONEAREST);
27 void test_fenv_except()
31 for (i = 0; i < 64; i++) {
32 feclearexcept(FE_ALL_EXCEPT);
36 error("feraise %d returned %d\n", i, r);
37 r = fetestexcept(FE_ALL_EXCEPT);
39 error("feraise want %d got %d\n", i, r);
43 void bench_feraiseexcept(int N)
46 for (i = 0; i < N; i++) {
51 void bench_fesetround(int N)
56 for (i = 0; i < N; i++) {