mcs/mbas/Test/tests/InterfaceL.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 'To Check if derived class need not implement the already existing Implementation
   7
   8 Interface A
   9         Sub fun(ByVal a As Integer)
  10 End Interface
  11
  12 Interface AB
  13         Inherits A
  14         Sub fun1(ByVal a As Integer)
  15 End Interface
  16
  17 Class B
  18         Implements A
  19         Sub Cfun(ByVal a As Integer) Implements A.fun
  20         End Sub
  21 End Class
  22
  23 Class BC
  24         Inherits B
  25         Implements AB
  26         Sub Cfun1(ByVal a As Integer) Implements AB.fun1
  27         End Sub
  28 End Class
  29
  30 Module InterfaceI
  31         Sub Main()
  32         End Sub
  33 End Module