projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
new error test
[mono.git]
/
mcs
/
btests
/
AccessibilityC1.vb
1
Imports System 'Should generate five compilation errors
2
Class C1
3
Private a As Integer=10
4
Protected b As Integer=30
5
Private Sub S()
6
End Sub
7
End Class
8
9
Class C2
10
Inherits C1
11
Public Sub S1()
12
S()
13
Console.WriteLine(a)
14
End Sub
15
End Class
16
17
Class C3
18
Public Sub S()
19
Dim myC As New C1()
20
myC.S()
21
Console.WriteLine(myC.a)
22
Console.WriteLine(myC.b)
23
End Sub
24
End Class
25
Module Accessibility
26
Sub Main()
27
Dim myC1 As New C1()
28
myC1.S()
29
Console.WriteLine(myC1.a)
30
Console.WriteLine(myC1.b)
31
32
Dim myC2 As New C2()
33
myC2.S1()
34
35
Dim myC3 As New C3()
36
myC3.S()
37
End Sub
38
End Module