mcs/mbas/Test/tests/conversions/ImpConversionDoubletoSingleD.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Module ImpConversionDoubletoSingleD
   7         Sub Main()
   8                         Dim c as Boolean = False
   9                         Dim a as Single
  10                         Dim b as Double = Double.NaN
  11                         a = b
  12                         c = Single.IsNan(a)
  13                         if (c = False)
  14                                 Throw New System.Exception("Double to Single Conversion is not working properly. Expected NaN but got " &a)
  15                         End if
  16         End Sub
  17 End Module