mcs/btests/ArrayC4.vb

   1 REM LineNo: 18\r
   2 REM ExpectedError: BC30526\r
   3 REM ErrorMessage: Property 'myprop' is 'ReadOnly'\r
   4 \r
   5 Imports System\r
   6
   7 Module ArrayC4
   8
   9     Dim a As Integer() = {1, 2, 3, 4}\r
  10 \r
  11     Public ReadOnly Property myprop() As Integer()\r
  12         Get\r
  13             Return a\r
  14         End Get\r
  15     End Property\r
  16 \r
  17     Sub main()\r
  18         ReDim Preserve myprop(6)\r
  19         myprop(4) = 10\r
  20         myprop(5) = 12     \r
  21     End Sub
  22
  23 End Module