summaryrefslogtreecommitdiff
path: root/Test/AbsHoudini/test9.bpl
blob: 7d624167acb01ebb170261ac5e8204e19e7e530d (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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
// RUN: %boogie -noinfer -contractInfer -printAssignment -inlineDepth:1 -abstractHoudini:IA[ConstantProp] "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
var v1: int;
var v2: int;
var v3: int;
function{:existential true} b1(): bool;
function{:existential true} b2(): bool;
function{:existential true} b3(): bool;
function{:existential true} b4(): bool;
function{:existential true} b5(): bool;
function{:existential true} b6(): bool;
function{:existential true} b7(): bool;
function{:existential true} b8(): bool;
function{:existential true} b9(): bool;
function{:existential true} b10(): bool;
function{:existential true} b11(): bool;
function{:existential true} b12(): bool;
function{:existential true} b13(): bool;
function{:existential true} b14(): bool;
function{:existential true} b15(): bool;
function{:existential true} b16(): bool;

procedure push() 
requires {:candidate} b1() || v1 == 0;
requires {:candidate} b2() || v1 == 1;
ensures  {:candidate} b3() || v1 == 0;
ensures {:candidate}  b4() || v1 == 1;
modifies v1,v2;
{
   v2 := v1;
   v1 := 1;
}

procedure pop()
modifies v1,v2;
requires {:candidate} b5() || v1 == 0;
requires {:candidate} b6() || v1 == 1;
ensures  {:candidate} b7() || v1 == 0;
ensures {:candidate}  b8() || v1 == 1;
{
   v1 := v2;
   havoc v2;
}

procedure foo() 
modifies v1,v2;
requires {:candidate} b9() || v1 == 0;
requires {:candidate} b10() || v1 == 1;
ensures  {:candidate} b11() || v1 == 0;
ensures {:candidate}  b12() || v1 == 1;
{
   call push();
   call pop();
}

procedure bar()
modifies v1,v2;
requires {:candidate} b13() || v1 == 0;
requires {:candidate} b14() || v1 == 1;
ensures  {:candidate} b15() || v1 == 0;
ensures {:candidate}  b16() || v1 == 1;
{
   call push();
   call pop();
}

procedure main() 
modifies v1,v2;
{
   v1 := 1;
   call foo();
   havoc v1;
   call bar();
}

// Expected:
//b1 = true
//b2 = true
//b3 = true
//b4 = false
//b5 = true
//b6 = false
//b7 = true
//b8 = true
//b9 = true
//b10 = false
//b11 = true
//b12 = false
//b13 = true
//b14 = true
//b15 = true
//b16 = true