Imports System
Module DecimalLiteral
	Sub Main()
			Dim a As Decimal=True
			If a<>-1 Then
                                Throw new System.Exception("DecimalLiteralB:Failed")
                  End If
	End Sub
End Module
