begin
  recordformat rf ( integer i, real r, integer i2)
  record (rf) rec1, rec2
  own record (rf) name array recna1(2:3) ;    ! cannot be initialised
  record (rf) name array name recnan1

  rec1 = rec2
  recnan1 == recna1           ;! I think this should translate to RECNAN1 = RECNA1 not RECNAN1 = &RECNA1 as it currently does

control 3
  recnan1(2) == rec1
  rec2 = recnan1(2)
control 0

endofprogram