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
(DISTFILES): Comment out a few missing files.
[mono-project.git]
/
mcs
/
btests
/
DecimalTypeCharTestB.vb
blob
7758f93c207460c3b14b86ceb17d83575ba72168
1
Imports System
2
Module
DecimalTypeCharTest
3
Sub
Main
()
4
Try
5
Dim
m
As
Decimal
6
m
=
f
(
20.2
D
)
7
If
m
<>
20.2
D
Then
8
Throw
New
Exception
(
"DecimalTypeCharTest: 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