mcs/btests/SingleTypeCharTestA.vb

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