mcs/mbas/Test/tests/ExpConversionSingletoIntA.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Module ExpConversionSingletoIntA
   7         Sub Main()
   8                 Dim i as Boolean = False
   9                 try
  10                         Dim a as Integer
  11                         Dim b as Single = 3000000000
  12                         a = CInt(b)
  13                 Catch e as System.Exception
  14                                 System.Console.WriteLine(" Arithmetic operation resulted in an overflow.")
  15                                 i = True
  16                 End Try
  17                 if i = False Then
  18                                 System.Console.WriteLine("Single to Integer Conversion is not working properly.")
  19                 End if
  20         End Sub
  21 End Module