aboutsummaryrefslogtreecommitdiff
path: root/testsuite/compilable/record_construction.elna
blob: 00e60db0a2815ab6c6cc532071baa0d9832987cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
type
  R = record
    x, y: Int
  end

var
  r: R := R{x: 1, y: 2}

begin
  assert(r.x = 1 & r.y = 2)
return 0
end.