mcs/mbas/Test/rerrors/ShadowsC6.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 REM LineNo: 32
   7 REM ExpectedError: BC30685
   8 REM ErrorMessage: 'fun' is ambiguous across the inherited interfaces 'AB' and 'AC'.
   9
  10 'This program is used to check the functioning of Shadows
  11
  12 Interface A
  13         Sub fun(ByVal i As Integer)
  14 End Interface
  15
  16 Interface AB
  17         Inherits A
  18         Shadows Sub fun(ByVal i As Integer)
  19 End Interface
  20
  21 Interface AC
  22         Inherits A
  23         Shadows Sub fun(ByVal i As Integer)
  24 End Interface
  25
  26 Interface ABS
  27         Inherits AB, AC
  28 End Interface
  29
  30 Class Test
  31         Sub D(ByVal d As ABS)
  32         d.fun(2)
  33         CType(d, A).fun(2)
  34         CType(d, AB).fun(2)
  35         CType(d, AC).fun(2)
  36          End Sub
  37 End Class
  38
  39 Module InheritanceO
  40         Sub Main()
  41                 Dim a as Test=new Test()
  42         End Sub
  43 End Module