mcs/mbas/Test/errors/AccessibilityC13.vb

   1 REM LineNo: 27
   2 REM ExpectedError: BC30390
   3 REM ErrorMessage: 'C1.b' is not accessible in this context because it is 'Protected'.
   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         End Sub
  17 End Class
  18
  19 Class C3
  20         Public Sub S()
  21                 Dim myC As New C1()
  22         End Sub
  23 End Class
  24 Module Accessibility
  25         Sub Main()
  26                 Dim myC1 As New C1()
  27                 Console.WriteLine(myC1.b)
  28
  29                 Dim myC2 As New C2()
  30                 myC2.S1()
  31
  32                 Dim myC3 As New C3()
  33                 myC3.S()
  34         End Sub
  35 End Module