// Test 2 dimensional flexible array procedure parameter
// (SHOULD NOT COMPILE)

main module FLEX2ARRAY
    use	TEXTIO

    declare
	string is packed array [1..?M] of char
    enddeclare

    procedure test
	param
	    A : in ref packed array [1..?NN] of string
	endparam

	out_string (TTY, A [1])
	out_record (TTY)
	out_integer (TTY, High (A))
	out_record (TTY)
    endprocedure

    declare
	joe is packed array [1..10] of char
	joe2 is packed array [1..2] of joe
	sam : static joe2 initially joe2 ([1:"1234567890")
    enddeclare

    Test (sam)
endmodule