**** Merged from MCS ****
[mono-project.git] / mcs / btests / DecimalTypeCharTest.vb
blob979369c9862b6c7ea3f3608918f5893b9a014d78
1 Imports System
2 Module DecimalTypeCharTest
3 Sub Main()
4 Try
5 Dim m As Decimal
6 m = f(20.2D)
7 If m <> 20.2D 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
16 Function f@(ByVal param@)
17 f = param
18 End Function
19 End Module