mcs/btests/DecimalTypeCharTest.vb

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