projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
(HAS_TEST): Remove.
[mono.git]
/
mcs
/
btests
/
ConstructorA.vb
1
Imports System
2
3
Class A
4
public Sub New()
5
End Sub
6
7
public Sub New(name as String)
8
if name <> "abc" then
9
throw new exception ("#A1, Unexpected result")
10
end if
11
End Sub
12
End Class
13
14
Class B
15
' implicitly call base class default ctor
16
public Sub New()
17
End Sub
18
End Class
19
20
Module M
21
Sub Main()
22
dim x as A = new A()
23
dim y as A = new A("abc")
24
dim z as B = new B()
25
End Sub
26
End Module