mcs/btests/ForEachC1.vb

   1 REM LineNo: 12\r
   2 REM ExpectedError: BC30757\r
   3 REM ErrorMessage: 'Goto labelA' is not valid because 'labelA' is inside a 'For'\r
   4 REM               or 'For Each' statement that does not contain this statement.\r
   5 \r
   6 Imports System\r
   7 \r
   8 Module ForEachC1\r
   9 \r
  10     Sub Main()\r
  11         Dim arr() As Integer = {1, 2, 3}\r
  12         GoTo labelA\r
  13 \r
  14         For Each i As Integer in arr \r
  15 labelA:\r
  16             Console.WriteLine(i)\r
  17         Next\r
  18 \r
  19     End Sub\r
  20 \r
  21 End Module