mcs/btests/LongTypeCharTestA.vb

   1 Module M
   2         Sub Main()
   3                 Dim a As Long
   4                 a=10
   5
   6                 Dim b&
   7                 b&=20
   8
   9                 Dim b As Long
  10                 b&=20
  11
  12                 Dim b& As Long
  13                 b=20
  14         End Sub
  15 End Module