mcs/btests/DoubleLiteralA.vb

   1 Imports System
   2 Module DoubleLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Double=1.23R
   6                         Dim b As Double=1.23E+10R
   7                         Dim c As Double=9223372036854775808R
   8                         Dim d As Double=.23R
   9                         Dim f As Double
  10                         If a<>1.23R Then
  11                                 Console.WriteLine("#A1-DoubleLiteralA:Failed")
  12                         End If
  13                          If b<>1.23E+10R Then
  14                                 Console.WriteLine("#A2-DoubleLiteralA:Failed")
  15                         End If
  16                          If c<>9.22337203685478E+18R
  17                                 Console.WriteLine("#A3-DoubleLiteralA:Failed")
  18                         End If
  19                         If d<>0.23R Then
  20                                 Console.WriteLine("#A4-DoubleLiteralA:Failed")
  21                         End If
  22                         If f<>0 Then
  23                                 Console.WriteLine("#A5-DoubleLiteralA: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