**** Merged from MCS ****
[mono-project.git] / mcs / btests / LongLiteralB.vb
blobedb5f7b832ead859be116975cdf9367d5064f579
1 Imports System
2 Module LongLiteral
3 Sub Main()
4 Try
5 Dim a As Long
6 If a<>0 Then
7 Console.WriteLine("LongLiteralC:Failed-Default value assigned to long variable should be 0")
8 End If
9 Catch e As Exception
10 Console.WriteLine(e.Message)
11 End Try
12 End Sub
13 End Module