mcs/btests/LongLiteralA.vb

   1 Imports System
   2 Module LongLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Long
   6                         a=True
   7                         If a<>-1 Then
   8                                 Console.WriteLine("#A1:LongLiteralA:Failed")
   9                         End If
  10                 Catch e As Exception
  11                         Console.WriteLine(e.Message)
  12                 End Try
  13                  Try
  14                         Dim a As Long
  15                         a=1.23
  16                         If a<>1 Then
  17                                 Console.WriteLine("#A2:LongLiteralA:Failed")
  18                         End If
  19                 Catch e As Exception
  20                         Console.WriteLine(e.Message)
  21                 End Try
  22         End Sub
  23 End Module