aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/two_fields_same_type.elna
blob: 649dd258bb9e5b7c9ffafe89f6f5cdd53e3823ad (plain)
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.