blob: 5fad58595b12f045f23f7ef4940e8d24c3a1d98c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
// RUN: %boogie -proverWarnings:1 "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_INT(int) returns (float32);
function {:builtin "(_ to_fp 8 24) RNE"} TO_FLOAT32_REAL(real) 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;
}
}
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_REAL(-1e-20) || x >= TO_FLOAT32_REAL(1e-20)) {
y := x * x;
assert(y != TO_FLOAT32_INT(0));
z := TO_FLOAT32_INT(1) / y;
}
}
|