mcs/btests/IntegerLiteralA.vb

   1 Imports System
   2 Module IntegerLiteral
   3         Sub Main()
   4         Try                             'Assigning boolean to integer
   5                 Dim a As Integer
   6                 a=True
   7                 If a<>-1 Then
   8                         Console.WriteLine("IntegerLiteralA:Failed")
   9                 End If
  10         Catch e As Exception
  11                 Console.WriteLine(e.Message)
  12         End Try
  13                                         ' Assigning float to integer
  14                                         ' if option strict is off this
  15                                         ' Test case should pass
  16          Try
  17                 Dim a As Integer
  18                 a=1.23
  19                 If a<>1 Then
  20                         Console.WriteLine("IntegerLiteralA:Failed")
  21                 End If
  22         Catch e As Exception
  23                 Console.WriteLine(e.Message)
  24         End Try
  25
  26         End Sub
  27 End Module