%begin
  %recordformat testfm(%integer one, two)
  %routinespec class(%RECORD(testfm)%NAME v)
  %external %record (testfm) data
  %routine class(%RECORD(testfm)%NAME v)
    %integer i
    i = v_one
  %end
  data_one = 1
  data_two = 2
  class(data)
%endofprogram