begin
  integer I1
  integername In
  real R1
  recordformat rf(integer i, real r)
  record (rf) rec
  record (rf) name recn
  recn == rec
  I1 = rec_i
  I1 = recn_i
  In == rec_i
  In == recn_i
  In = I1
endofprogram