**** Merged from MCS ****

[mono-project.git] / mcs / mbas / Test / tests / SingleLiteralB.vb

Imports System
Module SingleLiteral
        Sub Main()
                Try
                        Dim a As Single=True
                        If a<>-1 Then
                                Console.WriteLine("SingleLiteralB:Failed")
                        End If
                                
                        
                Catch e As Exception
                        Console.WriteLine(e.Message)
                End Try
        End Sub
End Module