summaryrefslogtreecommitdiff
path: root/float_test2.bpl
blob: da74909b825f833b24b00b3f8afc560e956ee939 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Translation from addsub_float_exact.c
//Should Verify
procedure main() returns () {
	var x : float;
	var y : float;
	var z : float;
	var r : float;
	x := fp(1000000);
	y := x + fp(1);
	z := x - fp(1);
	r := y - z;
	assert r == fp(2);
}