projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-06-09 Atsushi Enomoto <atsushi@ximian.com>
[mono.git]
/
mcs
/
btests
/
ModuleB.vb
1
NameSpace NS
2
Public Module M1
3
Public a As Integer
4
public Const b as integer = 10
5
Class C1
6
End Class
7
End Module
8
9
Friend Module MainModule
10
Sub Main()
11
M1.a = 20
12
dim x as integer = M1.b
13
if (x <> 10) then
14
Throw new System.Exception("#A1, Unexpected result")
15
end if
16
17
x = NS.M1.b
18
if x <> 10 then
19
Throw new System.Exception("#A2, Unexpected result")
20
end if
21
End Sub
22
End Module
23
End NameSpace