mcs/mbas/Test/errors/ControlFlowC1.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30240\r
   3 REM ErrorMessage: 'Exit' must be followed by 'Sub', 'Function', 'Property', \r
   4 REM               'Do', 'For', 'While', 'Select', or 'Try'.\r
   5 \r
   6 Imports System\r
   7 \r
   8 Module ControlFlowC1\r
   9 \r
  10     Sub main()\r
  11         Dim i As Integer = 0\r
  12         If i = 0 Then\r
  13             i = 2\r
  14             Exit\r
  15             i = 4\r
  16         End If\r
  17 \r
  18     End Sub\r
  19 \r
  20 End Module