      program arg4
      call sub(13)
      end
      subroutine sub(i)
      intent(in) i
      i=99
      print *,i
      end
