mcs/btests/ConditionalStatementsC7.vb

   1 REM LineNo: 16
   2 REM ExpectedError: BC30087
   3 REM ErrorMessage: 'End If' must be preceded by a matching 'If'.
   4
   5 Imports System
   6
   7 Module ConditionalStatementsC7
   8
   9     Sub Main()
  10
  11         Dim i As Integer = 0
  12
  13         if i = 0 then
  14                 i = 1
  15         end if
  16         end if
  17
  18     End Sub
  19
  20 End Module