      program arg6
      do i = 1 , 10
         call sub(i)
      enddo
      end
      subroutine sub(i)
      intent(in) i
      i=i+1
      print *,i
      end
