begin

  integer i, x
  recordformat rf(record (rf) name array next(0:2), integer i)
  record (rf) rec

  x = rec_next(i)_i

endofprogram