mcs/mbas/Test/errors/ForEachC8.vb

   1 REM LineNo: 15\r
   2 REM ExpectedError: BC30451\r
   3 REM ErrorMessage: Name 'j' is not declared\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ForEachC8\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\r
  15             j = 2          ' scope check\r
  16         Next\r
  17     End Sub\r
  18 \r
  19 End Module