Imports System
Module DoubleLiteral
	Sub Main()
			Dim a As Double=True
			If a<>-1 Then
                               Throw new system.Exception("DoubleLiteralB:Failed")
                  End If
	End Sub
End Module
