mcs/btests/WithStatementC2.vb

   1 REM LineNo: 21\r
   2 REM ExpectedError: BC30756\r
   3 REM ErrorMessage: 'GoTo labelA' is not valid because 'labelA' is inside a 'With' statement\r
   4 REM                that does not contain  this statement.\r
   5 \r
   6 Imports System\r
   7 \r
   8 Module WithStatementC2\r
   9     Class C1\r
  10         Public a1 As Integer = 10\r
  11         Public a2 As String = "Hello"\r
  12         Sub f1()\r
  13             Console.WriteLine("Class C1: {0} {1}", a1, a2)\r
  14         End Sub\r
  15     End Class\r
  16 \r
  17     Sub main()\r
  18         Dim a As New C1()\r
  19 \r
  20         If a.a1 <> 10 Then\r
  21             GoTo labelA\r
  22         End If\r
  23 \r
  24         With a\r
  25             .a1 = 20\r
  26 labelA:\r
  27             .a2 = "Hello World"\r
  28             .f1()\r
  29         End With\r
  30 \r
  31     End Sub\r
  32 \r
  33 End Module