summaryrefslogtreecommitdiff
path: root/Test/doomed/doomed.bpl
blob: 9029383d823efbbd4939e29280957ffb5e364ec1 (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

procedure evilrequires(x:int)
  requires x>0;
{
  var y : int;

  if(x<0) {
    y := 1;
  } else {
    y := 2;
  }
}


procedure evilbranch(x:int)
{
  var y : int;

  if(x<0) {
    y := 1;
  } else {
    y := 2;
  }
  assume y!=2;
  
  assert x<0; 
}


procedure evilloop(x:int)
{
  var y : int;
  y:=x;
  while (y<100) {
     y := y -1;
  }
}

procedure evilnested(x:int)
{
	 var i : int;
	 var j : int;
	 i:=x-1;
	 j:=1;
	 while (i>=0) {
		while (j<=i) {
			assert j<x;
			j := j+1;
		}
		i := i - 1;
	 }
}


procedure evilpath(x:int)
{
  var y : int;
  y:=0;
  if (x>10) {
    y:=3;
  } else {
    assert y!=0;
  }
}

procedure evilcondition(x:int)
{
  var y : int;
  y:=0;
  if (x!=0) {
    y:=3;
  } else {
    assert x!=0;
  }
}

procedure evilensures(x:int) returns  ($result: int)
  ensures $result>0;
{
  var y : int;

  if(x<0) {
    y := 1;
  } else {
    $result:=-1;
  }
}