diff options
Diffstat (limited to 'Test/inline/codeexpr.bpl')
-rw-r--r-- | Test/inline/codeexpr.bpl | 124 |
1 files changed, 62 insertions, 62 deletions
diff --git a/Test/inline/codeexpr.bpl b/Test/inline/codeexpr.bpl index 0b4ebeb6..185b518d 100644 --- a/Test/inline/codeexpr.bpl +++ b/Test/inline/codeexpr.bpl @@ -1,62 +1,62 @@ -// RUN: %boogie "%s" > "%t"
-// RUN: %diff "%s.expect" "%t"
-var g: bool;
-
-procedure {:inline 1} bar() returns (l: bool)
-{
- l := g;
-}
-
-procedure {:inline 1} baz() returns (l: bool)
-{
- call l := bar();
-}
-
-procedure A1()
-modifies g;
-{
- g := true;
- assert |{ var l: bool; A: call l := bar(); return l; }|;
- assert (exists p: bool :: |{ var l: bool; A: call l := bar(); return l; }|);
- assert (forall p: bool :: |{ var l: bool; A: call l := bar(); return l; }|);
-}
-
-procedure A2()
-{
- assert |{ var l: bool; A: assume g; call l := bar(); return l; }|;
- assert g ==> |{ var l: bool; A: call l := bar(); return l; }|;
- assert (exists p: bool :: g ==> |{ var l: bool; A: call l := bar(); return l; }|);
- assert (forall p: bool :: g ==> |{ var l: bool; A: call l := bar(); return l; }|);
-}
-
-procedure A3()
-{
- assume |{ var l: bool; A: call l := bar(); return l; }|;
- assert |{ var l: bool; A: call l := bar(); return l; }|;
-}
-
-procedure A4()
-modifies g;
-{
- g := true;
- assert |{ var l: bool; A: call l := bar(); return !l; }|;
-}
-
-procedure A5()
-modifies g;
-{
- var m: bool;
-
- g := true;
- m := |{ var l: bool; A: call l := bar(); return l; }|;
- assert m;
-}
-
-procedure A6()
-modifies g;
-{
- g := true;
- assert |{ var l: bool; A: call l := baz(); return l; }|;
- assert (exists p: bool :: |{ var l: bool; A: call l := baz(); return l; }|);
- assert (forall p: bool :: |{ var l: bool; A: call l := baz(); return l; }|);
-}
+// RUN: %boogie "%s" > "%t" +// RUN: %diff "%s.expect" "%t" +var g: bool; + +procedure {:inline 1} bar() returns (l: bool) +{ + l := g; +} + +procedure {:inline 1} baz() returns (l: bool) +{ + call l := bar(); +} + +procedure A1() +modifies g; +{ + g := true; + assert |{ var l: bool; A: call l := bar(); return l; }|; + assert (exists p: bool :: |{ var l: bool; A: call l := bar(); return l; }|); + assert (forall p: bool :: |{ var l: bool; A: call l := bar(); return l; }|); +} + +procedure A2() +{ + assert |{ var l: bool; A: assume g; call l := bar(); return l; }|; + assert g ==> |{ var l: bool; A: call l := bar(); return l; }|; + assert (exists p: bool :: g ==> |{ var l: bool; A: call l := bar(); return l; }|); + assert (forall p: bool :: g ==> |{ var l: bool; A: call l := bar(); return l; }|); +} + +procedure A3() +{ + assume |{ var l: bool; A: call l := bar(); return l; }|; + assert |{ var l: bool; A: call l := bar(); return l; }|; +} + +procedure A4() +modifies g; +{ + g := true; + assert |{ var l: bool; A: call l := bar(); return !l; }|; +} + +procedure A5() +modifies g; +{ + var m: bool; + + g := true; + m := |{ var l: bool; A: call l := bar(); return l; }|; + assert m; +} + +procedure A6() +modifies g; +{ + g := true; + assert |{ var l: bool; A: call l := baz(); return l; }|; + assert (exists p: bool :: |{ var l: bool; A: call l := baz(); return l; }|); + assert (forall p: bool :: |{ var l: bool; A: call l := baz(); return l; }|); +} |