summaryrefslogtreecommitdiff
path: root/Test/floats/test1.bpl
blob: e893e0984c8b8578ac0f367b887fb598d827f8e7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Translation from addsub_double_exact.c
//Should Verify
procedure main() returns () {
	var x : float<11, 53>;
	var y : float<11, 53>;
	var z : float<11, 53>;
	var r : float<11, 53>;
	x := fp<11, 53> (10000000bv64);
	y := x + fp<11, 53>(1bv64);
	z := x - fp<11, 53>(1bv64);
	r := y - z;
	assert r == fp<11, 53> (2bv64);
}