Test/test2/CallVerifiedUnder0.bpl


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

// RUN: %boogie -noinfer "%s" > "%t"
// RUN: %diff "%s.expect" "%t"

procedure A(P: bool);
  requires P;

procedure Test0()
{
    call {:verified_under false} A(false);  // error
}


procedure Test1()
{
    call {:verified_under true} A(false);
}


procedure Test2(P: bool, A: bool)
{
    call {:verified_under A} A(P);  // error
}


procedure Test3(P: bool, A: bool)
  requires !A ==> P;
{
    call {:verified_under A} A(P);
}


procedure Test4(P: bool, A: bool)
{
    call {:verified_under A} {:verified_under true} A(P);  // error
}


procedure Test5(P: bool, A: bool)
  requires !A ==> P;
{
    call {:verified_under A} {:verified_under true} A(P);
}