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