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

   1 Imports System
   2 Module APR_1_0_0
   3         Class C1
   4                 Sub F(ByRef p As Integer)
   5                         p += 1
   6                 End Sub
   7         End Class
   8
   9         Sub Main()
  10                 Dim obj As Object = new C1()
  11                 Dim a As Integer = 1
  12                 obj.F(a)
  13                 if (a=1)
  14                         Throw New System.Exception("#A1, Unexcepted Behaviour in Arguments_ByReferenceA.vb")
  15                 end if
  16         End Sub
  17 End Module
  18
  19 '============================================================================================