mcs/btests/ForB.vb

   1 REM LineNo: 19\r
   2 REM ExpectedError: BC30064\r
   3 REM ErrorMessage: 'ReadOnly' variable cannot be target of an assignment.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ForB\r
   8 \r
   9     Class C1\r
  10         Public ReadOnly index As Integer = 0\r
  11 \r
  12         Sub New()\r
  13             For index = 0 To 2\r
  14                 Console.WriteLine(index)\r
  15             Next\r
  16         End Sub\r
  17 \r
  18     End Class\r
  19 \r
  20     Sub main()\r
  21         Dim c As New C1()\r
  22         If c.index <> 3 Then\r
  23             Throw New Exception("#ForB1")\r
  24         End If\r
  25     End Sub\r
  26 \r
  27 End Module