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