**** Merged from MCS ****

[mono-project.git] / mcs / btests / LongLiteralB.vb

Imports System
Module LongLiteral
        Sub Main()
        Try
                Dim a As Long
                If a<>0 Then
                        Console.WriteLine("LongLiteralC:Failed-Default value assigned to long variable should be 0")
                End If
        Catch e As Exception
                Console.WriteLine(e.Message)
        End Try
        End Sub
End Module