mcs/btests/DecimalLiteralB.vb

   1 Imports System
   2 Module DecimalLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Decimal=True
   6                         If a<>-1 Then
   7                                 Console.WriteLine("DecimalLiteralB:Failed")
   8                         End If
   9
  10
  11                 Catch e As Exception
  12                         Console.WriteLine(e.Message)
  13                 End Try
  14         End Sub
  15 End Module