mcs/mbas/Test/errors/AccessibilityC6.vb

   1 REM LineNo: 16
   2 REM ExpectedError: BC30390
   3 REM ErrorMessage: 'C1.Private Sub S()' is not accessible in this context because it is 'Private'.
   4
   5 Imports System 'Should generate five compilation errors
   6 Class C1
   7         Private a As Integer=10
   8         Protected b As Integer=30
   9         Private Sub S()
  10         End Sub
  11 End Class
  12
  13 Class C2
  14         Inherits C1
  15         Public Sub S1()
  16                 S()
  17         End Sub
  18 End Class
  19