projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2005-01-31 Zoltan Varga <vargaz@freemail.hu>
[mono.git]
/
mcs
/
mbas
/
Test
/
tests
/
LongTypeCharTest.vb
1
Imports System
2
Module LongTypeCharTest
3
Sub Main()
4
Try
5
Dim m As Long
6
m = f(20)
7
If m <> 20 Then
8
Throw New Exception("LongTypeCharTest: 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