mcs/btests/BlockStatementsC2.vb

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