#include "test.h"

#include <math.h>

#include <stdint.h>

#include <fenv.h>

#include <stdio.h>

#include <float.h>

void test_fenv()

{

	int r;

	r = fesetround(FE_UPWARD);

	if (r != 0)

		error("fesetround %d\n", r);

	r = fegetround();

	if (r != FE_UPWARD)

		error("fegetround %x wanted %x\n", r, FE_UPWARD);

	r = fesetround(FE_TONEAREST);

	if (r != 0)

		error("fesetround %d\n", r);

	r = fegetround();

	if (r != FE_TONEAREST)

		error("fegetround %x wanted %x\n", r, FE_TONEAREST);

}

void test_fenv_except()

{

	int i,r;

	for (i = 0; i < 64; i++) {

		feclearexcept(FE_ALL_EXCEPT);

		r = feraiseexcept(i);

		if (r)

			error("feraise %d returned %d\n", i, r);

		r = fetestexcept(FE_ALL_EXCEPT);

		if (r != i)

			error("feraise want %d got %d\n", i, r);

	}

}

void bench_feraiseexcept(int N)

{

	int i;

	for (i = 0; i < N; i++) {

		feraiseexcept(i&63);

	}

}

void bench_fesetround(int N)

{

	int i;

	int r = 0;

	for (i = 0; i < N; i++) {

		r ^= 0x400;

		fesetround(r);

	}

}