1 2 3 4 5 6 7 8 9 10 11 12 13 14
type R = record x, y: Int end proc f(): Int var r: R := R{x: 3, y: 2} return r.x + r.y begin assert(f() = 5) end.