diff options
author | 2010-07-07 17:52:18 +0000 | |
---|---|---|
committer | 2010-07-07 17:52:18 +0000 | |
commit | 2235d3dc9e090a1d4b13d653138838624c70ba26 (patch) | |
tree | cd24b337a633b8d0a189c0de269bb7dadad0a083 /Test/stratifiedinline/bar4.bpl | |
parent | c9149ae1142d787e736f3fc7eea616d6422d31fb (diff) |
Boogie: Added stratified inlining. It is enabled using the flag /stratifiedInline:1.
Diffstat (limited to 'Test/stratifiedinline/bar4.bpl')
-rw-r--r-- | Test/stratifiedinline/bar4.bpl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Test/stratifiedinline/bar4.bpl b/Test/stratifiedinline/bar4.bpl new file mode 100644 index 00000000..84640811 --- /dev/null +++ b/Test/stratifiedinline/bar4.bpl @@ -0,0 +1,38 @@ +var y: int;
+var x: int;
+
+procedure {:inline 1} bar() returns (b: bool)
+modifies y;
+{
+ if (b) {
+ y := y + 1;
+ } else {
+ y := y - 1;
+ }
+}
+
+procedure {:inline 1} foo()
+modifies x, y;
+{
+ var b: bool;
+
+ call b := bar();
+ if (b) {
+ x := x + 1;
+ } else {
+ x := x - 1;
+ }
+}
+
+
+procedure main() returns (b: bool)
+requires x == y;
+ensures !b ==> x == y+1;
+ensures b ==> x+1 == y;
+modifies x, y;
+modifies y;
+{
+ call foo();
+ assert x == y;
+ call b := bar();
+}
|