projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add new error case
[mono.git]
/
mcs
/
btests
/
AccessibilityC11.vb
1
REM LineNo: 27
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
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
myC1.S()
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