      program do4
      do i = 1 , 10
         call sub
      enddo
      contains
      subroutine sub
      i=i+1
      print *,i
      end subroutine
      end program
