summaryrefslogtreecommitdiff
path: root/Test/AbsHoudini/pred3.bpl
blob: 38f42088d5ee58c14fda7da9a2ecc2ca590ff9a1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// RUN: %boogie -noinfer -contractInfer -printAssignment -inlineDepth:1 -abstractHoudini:PredicateAbs "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
function {:existential true} b0(x:bool, y:bool): bool;
function {:existential true} b1(x:bool, y:bool): bool;
function {:existential true} b2(x:bool, y:bool): bool;

var g: int;

procedure main()
modifies g;
ensures b0(g == 0, g == 5);
{
  assume 0 == old(g) || 1 == old(g);
  g := 0;
  if(*) { g := 5; }
  call foo();
}

procedure foo()
  modifies g;
  requires b1(g == 0, g == 5);
  ensures b2(old(g) == 0, old(g) == 5);
{
  assume g != 5;
}