mcs/mbas/Test/errors/InterfaceC3.vb

   1 REM LineNo: 12
   2 REM ExpectedError: BC30602
   3 REM ErrorMessage: Interface members must be methods, properties, events, or type definitions.
   4
   5 REM LineNo: 13
   6 REM ExpectedError: BC30429
   7 REM ErrorMessage: 'End Sub' must be preceded by a matching 'Sub'.
   8
   9 Imports System
  10 Interface I
  11         Sub S()
  12            Dim a As Integer
  13         End Sub
  14 End Interface
  15 Module InterfaceC3
  16         Sub Main()
  17
  18         End Sub
  19 End Module