mcs/btests/ForEachC4.vb

   1 REM LineNo: 12\r
   2 REM ExpectedError: BC30084\r
   3 REM ErrorMessage: 'For' must end with a matching 'Next'\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ForEachC4\r
   8 \r
   9     Sub main()\r
  10 \r
  11         Dim arr() As Integer = {1, 2, 3}\r
  12         For Each i As Integer in arr\r
  13             Console.WriteLine("Hello World")\r
  14 \r
  15     End Sub\r
  16 \r
  17 End Module