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
/
mbas
/
Test
/
tests
/
SingleTypeCharTestB.vb
blob
c8f3349582db55e544e37ffe9dc8844349a3db36
1
Imports System
2
Module
SingleTypeCharTest
3
Sub
Main
()
4
Try
5
Dim
m
As
Integer
6
m
=
f
(
20
)
7
If
m
<>
20
Then
8
Throw
New
Exception
(
"IntegerTypeChar: failed"
)
9
End If
10
Exit Sub
11
Catch e
As
Exception
12
Console
.
WriteLine
(
e
.
Message
)
13
End
Try
14
End Sub
15
16
Function
f
!(
ByVal
param
!)
17
f
! =
param
18
End Function
19
End Module