mcs/mbas/Test/tests/latebinding/FunctionArgu_ByValueA.vb

   1 Imports System
   2 Module APV1_0
   3         Class C
   4                 Function  F(ByVal p As Integer) As Integer
   5                         p += 1
   6                         return p
   7                 End Function
   8         End Class
   9         Sub Main()
  10                 Dim obj As Object = new C()
  11                 Dim a As Integer = 1
  12                 Dim b As Integer = 0
  13                 b = obj.F(a)
  14                 if b=a
  15                         Throw new System.Exception("#A1, Unexcepted behaviour")
  16                 end if
  17         End Sub
  18 End Module