1 2 3 4 5 6 7 8 9 10
procedure M (s : ref, r : ref) { var i : int, j : int; i := 0 + 1; j := i + 1; j := j + 1; j := j + 1; assert i == j; assert s == r; } type ref;