      program arg3
      call sub(13)
      end
      subroutine sub(i)
      i=99
      print *,i
      end
