mcs/mbas/Test/rerrors/InheritanceC7.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 REM LineNo: 23
   7 REM ExpectedError: BC30266
   8 REM ErrorMessage: 'Private Overrides Sub fun1(i As Integer)' cannot override 'Public Overridable Sub fun1(i As Integer)' because they have different access levels.
   9
  10 'Inheritance of the members with no scope are done in default public..
  11
  12 Class A
  13         Overridable Sub fun(ByVal i As Integer)
  14         End Sub
  15         Overridable Sub fun1(ByVal i As Integer)
  16         End Sub
  17 End Class
  18
  19 Class B
  20         Inherits A
  21         Public Overrides Sub fun(i As Integer)
  22         End Sub
  23         Private Overrides Sub fun1(i As Integer)
  24         End Sub
  25 End Class
  26
  27 Module Default1
  28         Sub Main()
  29         End Sub
  30 End Module