mcs/btests/DoubleTypeCharTestC1.vb

   1 Module M
   2         Sub Main()
   3                 Dim a 'Default type assigned is Object
   4                 a#=10 'Double type character does not conform with assigned type Object
   5
   6                 Dim b As Double
   7                 b&=10 'Long type character does not conform with assigned type Double
   8
   9                 Dim c #
  10
  11
  12         End Sub
  13 End Module