**** Merged from MCS ****
[mono-project.git] / mcs / mbas / Test / tests / DoubleTypeCharTest.vb
bloba83c0e6ecd1e368c575e406421a78e9657b336e6
1 Imports System
2 Module DoubleTypeCharTest
3 Sub Main()
4 Try
5 Dim m As Double
6 m = f(20)
7 If m <> 20 Then
8 Throw New Exception("DoubleTypeCharTest: 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