mcs/btests/Arguments_ByReferenceB.vb

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