diff options
Diffstat (limited to 'Test/og/ghost.bpl')
-rw-r--r-- | Test/og/ghost.bpl | 19 |
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; +} |