summaryrefslogtreecommitdiff
path: root/Test/floats/float10.bpl
blob: ec9b489548d12ed41966502480d9c07310d822fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// RUN: %boogie -proverWarnings:1 "%s" > "%t"
// RUN: %diff "%s.expect" "%t"

function {:builtin "(_ to_fp 11 53) RNE"} TO_FLOAT64_REAL(real) returns (float53e11);

procedure double_range_true() returns () {
	var x : float53e11;
	havoc x;
	if (x >= TO_FLOAT64_REAL(-1e307) && x <= TO_FLOAT64_REAL(1e307)) {	
		assert(x==x);
	}
}

procedure double_range_false() returns () {
	var x : float53e11;
	havoc x;
	assert(x==x);
}