summaryrefslogtreecommitdiff
path: root/float_test3.bpl
diff options
context:
space:
mode:
authorGravatar Checkmate50 <dgeisler50@gmail.com>2016-01-04 19:26:36 -0800
committerGravatar Checkmate50 <dgeisler50@gmail.com>2016-01-04 19:26:36 -0800
commit6fad4313b1a4e7f8e6cfcd12b92126a3d9ad58d0 (patch)
tree7404eda3568a7f271ea2827f8e1603c139c5b452 /float_test3.bpl
parenta1c9e11736bda4bf8ea4bf431523b9b975b01670 (diff)
Added several test cases and some basic documentation for fp usage
Diffstat (limited to 'float_test3.bpl')
-rw-r--r--float_test3.bpl14
1 files changed, 12 insertions, 2 deletions
diff --git a/float_test3.bpl b/float_test3.bpl
index e93e7df7..dd0c1ba4 100644
--- a/float_test3.bpl
+++ b/float_test3.bpl
@@ -1,3 +1,13 @@
- procedure F() returns () {
- assert fp(5) == fp(5 8 23);
+//Translation from addsub_float_inexact.c
+//Should give an error
+procedure main() returns () {
+ var x : float;
+ var y : float;
+ var z : float;
+ var r : float;
+ x := fp(10000000);
+ y := x + fp(1);
+ z := x - fp(1);
+ r := y - z;
+ assert r == fp(0);
} \ No newline at end of file