test/mpfrieee.awk


1
2
3
4
5
6
7
8
9
10
11
12
13

# Test IEEE-754 binary double format
BEGIN {
	x = 1.0e-320
	i = 0
	while (x > 0) {
		printf("%.15e\n", x)
		x /= 2

		# terminate early when the test is going to fail.
		if (++i > 50)
			break
	}
}