mcs/btests/IntegerTypeCharTestA.vb

   1 Module M
   2         Sub Main()
   3                 Dim a%
   4                 a=10
   5
   6                 Dim b As Integer
   7                 b%=10
   8
   9                 Dim c%
  10                 c%=10
  11
  12         End Sub
  13 End Module