program try
      integer i,k(5)
      do 1 k(2)=1,3
1     continue
      end