//--------------------------------------------------------------------
// Test allocate and access of flexible string with initial conditions
//--------------------------------------------------------------------
main module ALLOCATE6
   use	TEXTIO
    declare
	Fill_Char	is char initially $#
	Flex_array 	is packed array [1..?n] of char
	P 		is pointer Flex_array
	Top		: static P
    enddeclare

    Top := allocate P ("This is a test")
    out_line	(TTY, Top@)

endmodule