summaryrefslogtreecommitdiff
path: root/Test/floats/float10.bpl
blob: bf07aec60fe3df3521a50b4c30c8db9bd826c5bf (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 (float64);

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

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