summaryrefslogtreecommitdiff
path: root/float_test13.bpl
blob: e5402539ee08fa0620ffa6e3570bcb8f4ce63687 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Translation from inv_square_false-unreach-call.c
//Should return an error (without crashing)

function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_INT(int) returns (float32);

procedure main() returns () {
	var x : float32;
	var y : float32;
	var z : float32;
	
	havoc x;
	assume(x >= TO_FLOAT32_INT(-1) && x <= TO_FLOAT32_INT(1));
	
	if (x != TO_FLOAT32_INT(0)) {
		y := x * x;
		assert(y != TO_FLOAT32_INT(0));
		z := TO_FLOAT32_INT(1) / y;
	}
}