projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-11-08 Atsushi Enomoto <atsushi@ximian.com>
[mono.git]
/
mcs
/
btests
/
IntegerTypeCharTestB.vb
1
Imports System
2
3
Module IntegerTypeCharTest
4
Sub Main()
5
Try
6
Dim m As Integer
7
m = f(20)
8
If m <> 20 Then
9
Throw New Exception("IntegerTypeCharTest: failed")
10
End If
11
Exit Sub
12
Catch e As Exception
13
Console.WriteLine(e.Message)
14
End Try
15
End Sub
16
17
Function f%(ByVal param%)
18
f%= param
19
End Function
20
End Module