1Option Strict Off
2Imports System
3Module DoubleLiteral
4    Function Main() As Integer
5        Dim a As Double = True
6        If a <> -1 Then
7            System.Console.WriteLine("DoubleLiteralB:Failed") : Return 1
8        End If
9    End Function
10End Module
11