%begin
   %integer i, j, k, l
   j = 1001
   i = 1000
   k = 2
   l = 10
   %begin
      %own %integer %array fred1(i : j, k:l)

      %own %integer %array fred2(999 : j, k:l)

      %own %integer %array fred3(i : 1002, k:l)

      %own %byte %array fred4(999 : 1002, k:l)

      %own %integer %array fred5(1 : 2, 1:2) = 11, 12, 21, 22

      j = fred5(1, 2)
      k = fred5(2, 1)
   %end
%end %of %program
