blob: 0112b6cf15c66353a1c805fc1701e29e4e403288 (
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
|
// RUN: %boogie -typeEncoding:n -logPrefix:0n "%s" > "%t"
// RUN: %diff "%s.n.expect" "%t"
// RUN: %boogie -typeEncoding:p -logPrefix:0p "%s" > "%t"
// RUN: %diff "%s.p.expect" "%t"
// RUN: %boogie -typeEncoding:a -logPrefix:0a "%s" > "%t"
// RUN: %diff "%s.a.expect" "%t"
type Box;
function box<a>(a) returns (Box);
function unbox<a>(Box) returns (a);
axiom (forall<a> x:a :: unbox(box(x)) == x);
var b1: Box;
var b2: Box;
var b3: Box;
procedure P() returns ()
modifies b1, b2, b3; {
b1 := box(13);
b2 := box(true);
b3 := box(b1);
assert unbox(b1) == 13 && unbox(b2) == true && unbox(unbox(b3)) == 13;
assert unbox(b1) == true; // error
}
|