mcs/mbas/Test/errors/ForEachC3.vb

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