mcs/btests/ShiftOperatorsC1.vb

   1 'BC30512: Option Strict On disallows implicit conversions from double to long\r
   2 \r
   3 Option Strict On\r
   4 Imports System\r
   5 \r
   6 Module ShiftOperatorsC1\r
   7 \r
   8     Sub Main()\r
   9         Dim a1 As Double = 200.93\r
  10         a1 = a1 << 109.95\r
  11         Console.WriteLine(a1)\r
  12 \r
  13     End Sub\r
  14 \r
  15 End Module