mcs/mbas/Test/errors/InterfaceC13.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 REM LineNo: 19
   7 REM ExpectedError: BC30149
   8 REM ErrorMessage: 'B' must implement 'Sub fun(ParamArray a() As Integer)' for interface 'A'.
   9
  10 REM LineNo: 20
  11 REM ExpectedError: BC30401
  12 REM ErrorMessage: 'Cfun' cannot implement 'fun' because there is no matching sub on interface 'A'.
  13
  14 Interface A
  15         Sub fun(ByVal Paramarray a() As Integer)
  16 End Interface
  17
  18 Class B
  19         Implements A
  20         Sub Cfun(ByVal a() As Integer) Implements A.fun
  21         End Sub
  22 End Class
  23
  24 Module InterfaceI
  25         Sub Main()
  26         End Sub
  27 End Module