main module TESTHEAPF
// Test allocation of a structure with initial conditions

	use TEXTIO
	declare

	    A is 
		structure
		    B : integer
		    C : packed array [1..20] of char
		    D : array [1..4] of real
	        endstructure
	    Pointer_To_A	is pointer A
	    P 			: pointer_to_A
	enddeclare

	P := allocate Pointer_to_A (B : 5)

	out_integer (TTY, P@.B)
	out_record (TTY)
endmodule