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

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

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