**** Merged from MCS ****

[mono-project.git] / mcs / mbas / Test / rerrors / IntegerLiteralTest3.vb

Imports System
Module IntegerLiteralTest3
    Sub Main()
        Try
            Dim l As Long
            l = System.Int64.MaxValue
                Console.WriteLine(l)
            l = l + 1
        Catch e As Exception
            Console.WriteLine(e.Message)
        End Try
    End Sub
End Module