//---------------------------------------------------------------
// Allocate an assign that USED TO crash at run time on PDP
//---------------------------------------------------------------
main module ALLOCbug1

    use TEXTIO
    declare
	Flex_array 	is packed array [1..?MM] of char
	P_Flex 		is pointer Flex_array
	Top3		:  static P_Flex
	I_Count		: static integer initially 4
    enddeclare
    Top3 := allocate P_Flex (MM:I_Count)

    Top3@ := " WHY"		// THIS CRASHES AT RUN TIME, PDP-11
    out_line (TTY, Top3@)

endmodule