blob: d78c339dc02e2fdded36352617a99d1caafe8601 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
//Translation from addsub_float_exact.c
//Should Verify
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;
var r : float32;
x := TO_FLOAT32_REAL(1e7);
y := x + TO_FLOAT32_INT(1);
z := x - TO_FLOAT32_INT(1);
r := y - z;
assert r == TO_FLOAT32_INT(2);
}
|
