mcs/btests/ControlFlowC1.vb

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