main module FREEBUG
declare
	A 	is array [1..?N] of integer
	P	is pointer A
	Q	: P
enddeclare

	Q	:= allocate P (N:10)
	Free (Q)
endmodule