mcs/btests/BlockStatementsC3.vb

   1 'BC30132: Label 'c' is not defined\r
   2 \r
   3 Imports System\r
   4 \r
   5 Module BlockStatementsC3\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 c\r
  15         End If\r
  16     End Sub\r
  17 \r
  18     Sub f()\r
  19         Console.WriteLine("Inside sub f()")\r
  20 a:\r
  21         Console.WriteLine("label a")\r
  22 c:\r
  23         Console.WriteLine("label c")\r
  24 \r
  25     End Sub\r
  26 End Module\r