begin
  recordformat testfm(integer one, two)
  external record (testfm) data
  data_one = 1
  data_two = 2
endofprogram