mcs/btests/IntegerLiteralTest4.vb

   1 Imports System
   2 Module IntegerLiteralTest4\r
   3     Sub Main()\r
   4         Try\r
   5             Dim l As Integer\r
   6             l = System.Int32.MinValue\r
   7             l = l - 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