mcs/mbas/Test/errors/ForEachC6.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30070\r
   3 REM ErrorMessage: Next control variable does not match For loop control variable 'j'.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ForEachC6\r
   8 \r
   9     Sub main()\r
  10         Dim arr() As Integer = {1, 2, 3}\r
  11         For Each i As Integer in arr\r
  12             For Each j As Integer in arr\r
  13                 Console.WriteLine("Hello World")\r
  14             Next i\r
  15         Next\r
  16     End Sub\r
  17 \r
  18 End Module