//--------------------------------------------------------------------
// Test comparison of allocated flex arrays with static strings
//--------------------------------------------------------------------
main module ALLOCATE8
    use	TEXTIO
    declare
	Flex_array 	is packed array [1..?n] of char
	P 		is pointer Flex_array
	T1, T2		: static P
	temp1, temp2	: static packed array[1..5] of char
    enddeclare

	T1 := allocate P ("ABCDE")
	T2 := allocate P ("ABCDE")

	if t1@=t2@ do
	    tty_line ("Eureka")
	otherwise
	    tty_line ("OOPS")
	endif
endmodule