%begin
  ! bounds need to apply to all four arrays here
  %integerarray  p,q,r,s(0:255, 0:255)
  %integer i
  p(100, 200) = 42
  q(100, 200) = 42
  r(100, 200) = 42
  s(100, 200) = 42
%endofprogram