=DefineTest()

*---------------------------------------------
function DefineTest()

	local a
	*------------------------------------------	
	&& this will create variable aa and it should not
	release aa
	#define	ALINEDEFINED	aa = aa
	
	a=1
	
	#define aa	a
	
	ALINEDEFINED
	
	#undefine ALINEDEFINED
	#undefine aa
	
	?vartype(aa), 'should be U', '  Error'
	?aa
	
	*------------------------------------------	
	
	&& this will not create variable aa
	release aa
	#define	ALINEDEFINED	m.aa = m.aa
	
	a=1
	#define aa	a

	ALINEDEFINED
	#undefine ALINEDEFINED
	#undefine aa
	
	?vartype(aa), 'should be U', ' OK'
	
endfunc
*---------------------------------------------------------------------------