mcs/btests/ForC3.vb

   1 REM LineNo: 19
   2 REM ExpectedError: BC30064
   3 REM ErrorMessage: 'ReadOnly' variable cannot be target of an assignment.
   4
   5 Imports System
   6
   7 Module ForC3
   8
   9     Class C1
  10         Public ReadOnly index As Integer = 0
  11
  12         Sub New()
  13             For index = 0 To 10
  14                 Console.WriteLine("Hello World")
  15             Next
  16         End Sub
  17
  18         Sub f()
  19             For index = 11 To 14
  20                 Console.WriteLine("Hello World")
  21             Next
  22         End Sub
  23
  24     End Class
  25
  26     Sub main()
  27         Dim c As New C1()
  28         c.f()
  29     End Sub
  30
  31 End Module