mcs/btests/SingleLiteralA.vb

   1 Imports System
   2 Module SingleLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Single=1.23F
   6                         Dim b As Single=1.23E+10F
   7                         Dim c As Single=9223372036854775808F
   8                         Dim d As Single=.23F
   9                         Dim f As Single
  10                         If a<>1.23F Then
  11                                 Console.WriteLine("#A1-SingleLiteralA:Failed")
  12                         End If
  13                          If b<>1.23E+10F Then
  14                                 Console.WriteLine("#A2-SingleLiteralA:Failed")
  15                         End If
  16                          If c<>9.223372E+18F Then
  17                                 Console.WriteLine("#A3-SingleLiteralA:Failed")
  18                         End If
  19                         If d<>0.23 Then
  20                                 Console.WriteLine("#A4-SingleLiteralA:Failed")
  21                         End If
  22                         If f<>0 Then
  23                                 Console.WriteLine("#A5-SingleLiteralA:Failed")
  24                         End If
  25
  26
  27                 Catch e As Exception
  28                         Console.WriteLine(e.Message)
  29                 End Try
  30         End Sub
  31 End Module