mcs/btests/BlockStatementsA.vb

   1 Imports System\r
   2 \r
   3 Module BlockStatementsA\r
   4 \r
   5     Sub Main()\r
   6         Dim a As Integer = 10\r
   7         If a = 10 Then\r
   8             GoTo a\r
   9         End If\r
  10 \r
  11 label:  a = 11\r
  12 \r
  13 a:      a = 5\r
  14         If a = 5 Then\r
  15             GoTo 123\r
  16         End If\r
  17 \r
  18 123:    a = 7\r
  19         If a = 7 Then\r
  20             GoTo _12ab\r
  21         End If\r
  22 \r
  23 _12ab:  a = 8\r
  24         If a = 8 Then\r
  25             GoTo [class]\r
  26         End If\r
  27 \r
  28 [class]: a = 0\r
  29         Console.WriteLine(a)\r
  30 \r
  31         ' label declaration always takes precedence in any ambiguous situation\r
  32 \r
  33 f1:     Console.WriteLine("Heh") : a = 1 : f1:\r
  34 \r
  35     End Sub\r
  36 \r
  37     Function f1() As Boolean\r
  38         Console.WriteLine("Inside function f1()")\r
  39         Return True\r
  40     End Function\r
  41 \r
  42 End Module