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
/
NameSpaceD.vb
1
'Imports System
2
Namespace NS1
3
Module M
4
Public a As Integer=20
5
End Module
6
End Namespace
7
Namespace NS2
8
Module M
9
Dim a As Integer=30
10
Sub Main()
11
Dim a As Integer=40
12
System.Console.WriteLine(a)
13
Try
14
If a<>40 Then
15
Throw New System.Exception("#A1:Namespace:Failed")
16
End If
17
If NS1.M.a<>20 Then
18
Throw New System.Exception("#A2:Namespace:Failed")
19
End If
20
If NS2.M.a<>30 Then
21
Throw New System.Exception("#A3:Namespace:Failed")
22
End If
23
Catch e As Exception
24
System.Console.WriteLine(e.Message)
25
End Try
26
End Sub
27
End Module
28
End Namespace
29