blob: e66802ea35dd1c5420ee641a031d6a7372c33a76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
// types
const top: ref;
var myRef: ref;
// procedure
procedure SetTo(r: ref);
modifies myRef
;
ensures myRef==r;
implementation SetTo(c: ref) {
myRef:=top;
}
|