// --------------------------------------
// Test allocate and init of 1 word object
//----------------------------------------
main module ALLOCAT1W
    use	TEXTIO
    declare
	One_word	is 16 bit integer
	P 		is pointer One_Word
	T1:		static P
    enddeclare

    T1 := allocate P (4)

    out_integer (TTY, T1@, "Init val = ")
    out_record (TTY)
endmodule