mcs/mbas/Test/tests/ParamArrayA.vb

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