summaryrefslogtreecommitdiff
path: root/Test
diff options
context:
space:
mode:
authorGravatar Checkmate50 <dgeisler50@gmail.com>2016-07-19 11:14:41 -0600
committerGravatar Checkmate50 <dgeisler50@gmail.com>2016-07-19 11:14:41 -0600
commitf3f704edfb2cd1021d811050c72694767710217f (patch)
tree1cb00f1844b7a6d49af58113f3b77a5f1dfec788 /Test
parentaf8621462cf6b25a6dd29b63ed251629109d6bfb (diff)
Added and briefly tested the updated syntax. NaN/oo not supported yet
Diffstat (limited to 'Test')
-rw-r--r--Test/floats/float0.bpl8
-rw-r--r--Test/floats/float1.bpl24
2 files changed, 16 insertions, 16 deletions
diff --git a/Test/floats/float0.bpl b/Test/floats/float0.bpl
index 1a642835..d7faa4b0 100644
--- a/Test/floats/float0.bpl
+++ b/Test/floats/float0.bpl
@@ -4,11 +4,11 @@ procedure foo(x : real) returns (r : float8e24)
{
r := 15; // Error
r := 15.0; // Error
- r := fp(false, 1bv8, 0bv22); // Error
- r := fp<8, 23>(1bv31); // Error
+ r := 0e1f22e8; // Error
+ r := 1e0f23e8; // Error
r := x; // Error
- r := fp<8, 23>(1bv31) + fp<8, 23>(1bv31); // Error
- r := fp<8, 24>(1bv32) + fp<8, 23>(1bv31); // Error
+ r := 1e0f23e8 + 1e0f23e8; // Error
+ r := 1e0f24e8 + 1e0f23e8; // Error
return;
} \ No newline at end of file
diff --git a/Test/floats/float1.bpl b/Test/floats/float1.bpl
index 9ed62579..2b901c94 100644
--- a/Test/floats/float1.bpl
+++ b/Test/floats/float1.bpl
@@ -1,13 +1,13 @@
-// RUN: %boogie -proverWarnings:1 "%s" > "%t"
-// RUN: %diff "%s.expect" "%t"
-procedure foo(x : float<8, 24>) returns (r : float<8, 24>)
-{
- r := fp(false, 1bv8, 0bv23);
- r := fp<8, 24>(1bv32);
- r := x;
- r := x + fp<8, 24>(1bv32);
- r := fp<8, 24>(1bv32) + fp<8, 24>(1bv32);
- assert(r == fp<8, 24>(2bv32));
-
- return;
+// RUN: %boogie -proverWarnings:1 "%s" > "%t"
+// RUN: %diff "%s.expect" "%t"
+procedure foo(x : float24e8) returns (r : float24e8)
+{
+ r := 0e1f24e8;
+ r := 1e0f24e8;
+ r := x;
+ r := x + 1e0f24e8;
+ r := 0e0f24e8 + 0e0f24e8;
+ assert(r == 0e1f24e8);
+
+ return;
} \ No newline at end of file