mcs/mbas/Test/tests/types/DecimalTypeCharTestB.vb

   1 Imports System
   2 Module DecimalTypeCharTest
   3     Sub Main()
   4             Dim m As Decimal
   5             m = f(20.2D)
   6             If m <> 20.2D Then
   7                 Throw New Exception("DecimalTypeCharTest: failed")
   8             End If
   9             Exit Sub
  10     End Sub
  11
  12     Function f@(ByVal param@)
  13         f@ = param
  14     End Function
  15 End Module