mcs/mbas/Test/tests/DoubleTypeCharTest.vb

   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
  15
  16     Function f#(ByVal param#)
  17         f = param
  18     End Function
  19 End Module