mcs/btests/Arguments_ByReferenceB.vb

   1 '=============================================================================================
   2 'Name:Manish Kumar Sinha
   3 'Email Address: manishkumarsinha@sify.com
   4 'Test Case Name: Argument passing by Reference:
   5 'APR-1.4.0: If procedure is define by passing argument by reference and while calling the
   6 '                procedure it is passes by giving parentheses around the variable then it protect
   7 '                it from change
   8 '=============================================================================================
   9
  10 Imports System
  11 Module APR_1_4_0
  12         Sub F(ByRef p As Integer)
  13       p += 1
  14    End Sub
  15
  16    Sub Main()
  17       Dim a As Integer = 1
  18       F((a))
  19                 if(a<>1)
  20                 Throw new System.Exception ("#A1, Unexpected behavior in Arguments_ByReferenceB.vb")
  21                 end if
  22    End Sub
  23 End Module
  24
  25 '==============================================================================================