mcs/mbas/Test/tests/types/DoubleLiteralB.vb

   1 Imports System
   2 Module DoubleLiteral
   3         Sub Main()
   4                         Dim a As Double=True
   5                         If a<>-1 Then
   6                                Throw new system.Exception("DoubleLiteralB:Failed")
   7                   End If
   8         End Sub
   9 End Module