mcs/btests/IntegerLiteralTest3.vb

   1 Imports System
   2 Module IntegerLiteralTest3\r
   3     Sub Main()\r
   4         Try\r
   5             Dim l As Long
   6             l = System.Int64.MaxValue
   7                 Console.WriteLine(l)\r
   8             l = l + 1\r
   9         Catch e As Exception\r
  10             Console.WriteLine(e.Message)\r
  11         End Try\r
  12     End Sub\r
  13 End Module\r