6 Dim b As Double=1.23E+10R
7 Dim c As Double=9223372036854775808R
11 Console.WriteLine("#A1-DoubleLiteralA:Failed")
14 Console.WriteLine("#A2-DoubleLiteralA:Failed")
16 If c<>9.22337203685478E+18R
17 Console.WriteLine("#A3-DoubleLiteralA:Failed")
20 Console.WriteLine("#A4-DoubleLiteralA:Failed")
23 Console.WriteLine("#A5-DoubleLiteralA:Failed")
28 Console.WriteLine(e.Message)