begin
  integer q,w,e,r,t,y { bump up indexes for easier debugging }
  recordformat testfm(integer one, two)
  integer u,i,o,p
  record (testfm) array test(0:10)
  integer a,s,d,f
  record (testfm) name pointer
  q = 5
  pointer == test(q)
  pointer_two = p

endofprogram