mcs/mbas/Test/errors/InterfaceC1.vb

   1 REM LineNo: 18
   2 REM ExpectedError: BC30375
   3 REM ErrorMessage: 'New' cannot be used on an interface.
   4
   5 Interface I
   6     Function F()
   7 End Interface
   8
   9 Class C
  10     Implements I
  11
  12     Function F() Implements I.F
  13     End Function
  14 End Class
  15
  16 Module InterfaceC1
  17     Sub Main()
  18         Dim x As I = New I()
  19     End Sub
  20 End Module