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