mcs/btests/IntegerLiteralTest2.vb

   1 Imports System
   2 Module IntegerLiteralTest2\r
   3     Sub Main()\r
   4         Try\r
   5             Dim i As Integer\r
   6             i = System.Int32.MinValue\r
   7             i = i - 1\r
   8         Catch e As Exception\r
   9             Console.WriteLine(e.Message)\r
  10         End Try\r
  11     End Sub\r
  12 End Module\r