begin
  comment begin
  recordformat rf ( integer i, real r, integer i2)
  comment   recordformat rf ( integer i, real r, integer i2)

  comment 
  record (rf) rec1, rec2
  comment   record (rf) rec1, rec2
  record (rf) name recn1, recn2
  comment   record (rf) name recn1, recn2
  record (rf) array reca1,reca2(2:3),reca3(4:5,1:2)
  comment   record (rf) array reca1,reca2(2:3),reca3(4:5,1:2)
  record (rf) array name recan1,recan2
  comment   record (rf) array name recan1,recan2
  record (rf) name array recna1,recna2(2:3),recna3(1:2)
  comment   record (rf) name array recna1,recna2(2:3),recna3(1:2)
  record (rf) name array name recnan1,recnan2
  comment   record (rf) name array name recnan1,recnan2
  record(rf)fn rfn1
  comment   record(rf)fn rfn1
    result = rec2
  comment     result = rec2
  end
  comment   end
  record(rf)map rmap1
  comment   record(rf)map rmap1
    result == rec2
  comment     result == rec2
  end
  comment   end

  comment 
  rec1 = rec2
  comment   rec1 = rec2
  recn1 == rec2
  comment   recn1 == rec2
  rec1 = recn1
  comment   rec1 = recn1
  reca1(2) = rec2
  comment   reca1(2) = rec2
  rec1 = reca1(2)
  comment   rec1 = reca1(2)
  reca3(4,2) = rec2
  comment   reca3(4,2) = rec2
  rec1 = reca3(4,2)
  comment   rec1 = reca3(4,2)
  recnan1 == recna1
  comment   recnan1 == recna1
  recnan1(2) == rec1
  comment   recnan1(2) == rec1
  rec1 = recnan1(2)
  comment   rec1 = recnan1(2)
  rec1 = rfn1
  comment   rec1 = rfn1
  rmap1 = rec1
  comment   rmap1 = rec1
  rec1 = rmap1
  comment   rec1 = rmap1
  
  comment   
  comment endofprogram
endofprogram