mcs/btests/ArrayC6.vb

   1 REM LineNo: 10\r
   2 REM ExpectedError: BC30689\r
   3 REM ErrorMessage: Statement cannot appear outside of a method body.\r
   4 \r
   5 Imports System\r
   6
   7 Module ArrayC6\r
   8
   9     Dim a As Integer() = {1, 2, 3, 4}
  10     ReDim Preserve a(5)
  11     Erase a
  12
  13     Sub Main()
  14         ReDim Preserve a(6)
  15         Erase a
  16         Console.WriteLine(a(0))
  17     End Sub
  18 End Module