mcs/btests/ParamArrayC2.vb

   1 '=============================================================================================\r
   2 'Name:Manish Kumar Sinha \r
   3 'Email Address: manishkumarsinha@sify.com\r
   4 'Test Case Name: Param Array:\r
   5 'APR-1.1.1:If ParamArray modifier is precied by ByRef modifier the it produces compiler error \r
   6 '=============================================================================================\r
   7 Imports System\r
   8 Module PA_1_1_1\r
   9    Sub F(ParamArray ByRef args() As Integer)\r
  10         Dim a as Integer\r
  11         a = args.Length\r
  12         if a=0\r
  13                 Throw New System.Exception("#A1, Unexcepted behavoiur of PARAM ARRAY")\r
  14         end if\r
  15 \r
  16    End Sub\r
  17    Sub Main()\r
  18       Dim a As Integer() = { 1, 2, 3 }\r
  19       F(a)\r
  20       F(10, 20, 30, 40)\r
  21    End Sub\r
  22 End Module\r
  23 '================================================================================