mcs/mbas/Test/errors/BlockStatementsC2.vb

   1 REM LineNo: 20
   2 REM ExpectedError: BC30094
   3 REM ErrorMessage: Label 'a' is already defined in the current method.
   4
   5
   6
   7 Imports System
   8
   9 Module BlockStatementsC2
  10
  11     Sub Main()
  12         Dim a As Integer = 10
  13         If a = 10 Then
  14             GoTo b
  15 a:          a = 11
  16 b:          a = 12
  17         Else
  18             GoTo a
  19         End If
  20 a:
  21         Console.WriteLine("Outside label")
  22     End Sub
  23
  24 End Module