mcs/btests/DecimalTypeCharTestB.vb

   1 Imports System\r
   2 Module DecimalTypeCharTest\r
   3     Sub Main()\r
   4         Try\r
   5             Dim m As Decimal\r
   6             m = f(20.2D)\r
   7             If m <> 20.2D Then\r
   8                 Throw New Exception("DecimalTypeCharTest: failed")\r
   9             End If\r
  10             Exit Sub\r
  11         Catch e As Exception\r
  12             Console.WriteLine(e.Message)\r
  13         End Try\r
  14     End Sub\r
  15 \r
  16     Function f@(ByVal param@)\r
  17         f@ = param\r
  18     End Function\r
  19 End Module\r