mcs/mbas/Test/tests/types/SingleLiteralA.vb

   1 Imports System
   2 Module SingleLiteral
   3         Sub Main()
   4                         Dim a As Single=1.23F
   5                         Dim b As Single=1.23E+10F
   6                     Dim c As Single=92.23372E+17F
   7                         Dim d As Single=.23F
   8                         Dim f As Single
   9                   if a<>1.23F Then
  10                         Throw new System.Exception("#A1-SingleLiteralA:Failed")
  11                   End If
  12                   If b<>1.23E+10F Then
  13                         Throw new System.Exception("#A2-SingleLiteralA:Failed")
  14                   End If
  15                   If c<>9.223372E+18F Then
  16                         Throw new System.Exception("#A3-SingleLiteralA:Failed")
  17                   End If
  18                         If d<>0.23f Then
  19                                 Throw new System.Exception("#A4-SingleLiteralA:Failed")
  20                         End If
  21                         If f<>0 Then
  22                         Throw new System.Exception("#A5-SingleLiteralA:Failed")
  23                   End If
  24         End Sub
  25 End Module