Module M
	Sub Main()
		Dim a 'Default type assigned is Object
		a@=10 'Decimal type character does not conform with assigned type Object
		
		Dim b As Decimal
		b&=10 'Long type character does not conform with assigned type Decimal

		Dim c @
		
	End Sub
End Module
