%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

  ! BUG TODO should generate struct testfm *pointer()
  ! but currently generates struct testfm pointer
  %record (testfm) %map pointer
    %result == test(q)
  %end
  %record (testfm) normal
  q = 5
  normal_two = p
  pointer_two = p

%endofprogram