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

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3
   4 Imports System
   5 Module ConversionLeftShiftOperator
   6
   7 Sub Main()
   8         Dim A As Long = 10.666
   9         Dim B As Integer = 2
  10         Dim R As Integer
  11         R = A << B
  12         if R <> 44 Then
  13                 throw new Exception("#Error With << Shift Operator")
  14         End if
  15 End Sub
  16 End Module