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 array recna1(2:3)
  comment   record (rf) name array recna1(2:3)

  record (rf) name array name recnan1
  comment   record (rf) name array name recnan1

  comment 

  ! SETUP
  
  rec1 = rec2
  comment   rec1 = rec2

  recnan1 == recna1
  comment   recnan1 == recna1

  ! TEST
  
  recnan1(2) == rec1
  comment   recnan1(2) == rec1   ... the (2) is missing

  rec2 = recnan1(2)
  comment   rec2 = recnan1(2)   ... the (2) is missing

  comment   
  comment endofprogram
endofprogram