repo.or.cz
/
mono-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
**** Merged from MCS ****
[mono-project.git]
/
mcs
/
btests
/
AccessibilityC11.vb
blob
78dd27306496e04c845f5452f98ef6c835cd4fdd
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