      subroutine f()
      do 1 i=1,n
      do 1 j=1,n
    1 continue
      do 2 i=1,n
    2 continue
      end
