mcs/btests/DecimalTypeCharTest.vb

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