mcs/btests/ForC3.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 ForC3\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 10\r
  14                 Console.WriteLine("Hello World")\r
  15             Next\r
  16         End Sub\r
  17 \r
  18         Sub f()\r
  19             For index = 11 To 14\r
  20                 Console.WriteLine("Hello World")\r
  21             Next\r
  22         End Sub\r
  23 \r
  24     End Class\r
  25 \r
  26     Sub main()\r
  27         Dim c As New C1()\r
  28         c.f()\r
  29     End Sub\r
  30 \r
  31 End Module