mcs/mbas/Test/tests/conversions/ImpConversionBoolToDoubleA2.vb

   1 Module ImpConversionofBooltoDoubleB
   2         Sub Main()
   3                 Dim b as Boolean = True
   4                 Dim a as Double = b
   5                 if a <> -1 then
   6                         Throw New System.Exception("Implicit Conversion of Bool(True) to Double has Failed. Expected -1 got " & a)
   7                 End if
   8         End Sub
   9 End Module