mcs/mbas/Test/errors/ShadowsC1.vb

   1 REM LineNo: 27
   2 REM ExpectedError: BC30057
   3 REM ErrorMessage: Too many arguments to 'Public Shadows Function F() As Object'.
   4
   5 Class B
   6     Function F()
   7     End Function
   8
   9     Function F(ByVal i As Integer)
  10     End Function
  11
  12
  13     Function F(ByVal i As String)
  14     End Function
  15 End Class
  16
  17 Class D
  18     Inherits B
  19     ' all other overloaded methods should become unavailable
  20     Shadows Function F()
  21     End Function
  22 End Class
  23
  24 Module ShadowA_C1
  25     Sub Main()
  26         Dim x As D = New D()
  27         x.F("abc")
  28     End Sub
  29
  30 End Module
  31