mcs/btests/ForC1.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 ForC1\r
   9 \r
  10     Sub main()\r
  11         Dim i As Integer = 0\r
  12         GoTo labelA\r
  13 \r
  14         For i = 0 To 10\r
  15 labelA:\r
  16             i = 2\r
  17         Next\r
  18     End Sub\r
  19 \r
  20 End Module