summaryrefslogtreecommitdiff
path: root/Test/floats/test2.bpl
diff options
context:
space:
mode:
authorGravatar Checkmate50 <dgeisler50@gmail.com>2016-05-31 12:59:38 -0600
committerGravatar Checkmate50 <dgeisler50@gmail.com>2016-05-31 12:59:38 -0600
commitc19c2495497d0dfa7aaf871cf833cd5e5f986d33 (patch)
tree86c6f9fdd2baf6d8f8b2ebacda439d1ee6853dcc /Test/floats/test2.bpl
parent6f7fc01346c0ebe9072e61ace2cfede4fcedea09 (diff)
moved all the tests to the testing folder
Diffstat (limited to 'Test/floats/test2.bpl')
-rw-r--r--Test/floats/test2.bpl17
1 files changed, 17 insertions, 0 deletions
diff --git a/Test/floats/test2.bpl b/Test/floats/test2.bpl
new file mode 100644
index 00000000..d78c339d
--- /dev/null
+++ b/Test/floats/test2.bpl
@@ -0,0 +1,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);
+} \ No newline at end of file