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

	End Sub
End Module
