begin
  recordformat rf(integer a,b, real r)
  record(rf)array ra(0:9)
  record(rf)namearray rna(0:9)
  integer x
  x = ra(1)_a
  ra(2)_b = x    ;! should use "->" in C
  x = rna(1)_a   ;! should use "." in C
  rna(2)_b = x
endofprogram