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

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