mcs/mbas/Test/tests/conversions/ConversionWithEqualOperatorLnInt.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3
   4 Imports System
   5 Module ExpressionOperator1
   6
   7    Sub main()
   8         Dim L As Long = 100.555
   9         Dim I As Integer = 100
  10         if L = I  Then
  11                 Throw New Exception ("# Error L can't be equal to I ")
  12         End if
  13     End Sub
  14 End Module