summaryrefslogtreecommitdiff
path: root/Test/og/ghost.bpl
diff options
context:
space:
mode:
Diffstat (limited to 'Test/og/ghost.bpl')
-rw-r--r--Test/og/ghost.bpl19
1 files changed, 19 insertions, 0 deletions
diff --git a/Test/og/ghost.bpl b/Test/og/ghost.bpl
index ef40a232..74d16acf 100644
--- a/Test/og/ghost.bpl
+++ b/Test/og/ghost.bpl
@@ -25,3 +25,22 @@ ensures {:right} |{ A: x := x + 2; return true; }|;
yield;
}
+procedure ghost_0() returns (z: int)
+ensures z == x;
+{
+ z := x;
+}
+
+procedure {:yields} {:layer 1,2} Incr2_0()
+ensures {:right} |{ A: x := x + 2; return true; }|;
+{
+ var {:ghost} a: int;
+ var {:ghost} b: int;
+
+ yield;
+ call a := ghost_0();
+ par Incr() | Incr();
+ call b := ghost_0();
+ assert {:layer 1} b == a + 2;
+ yield;
+}