%begin
  %recordformat testfm(%integer a,b,c,d)
  %record (testfm) %array rec(0:10)
  %integer i, j
!  rec(i)_c = 2
  rec(-i)_c = 2
%endofprogram