main module TESTAR2
%set debug_print_ccode=true
use TEXTIO
//%set use_routine_names = true
declare
	This_Integer is 16 bit integer initially 5

	XRANGE is 1..2
	YRANGE is 1..4

	Y_array	is array [YRANGE] of This_integer
	Y	is Y_array initially Y_array ([1]:1,[2]:2,[3]:3)
	XY 	is array [XRANGE] of Y
	GRID	: XY
enddeclare

procedure out_grid ( G: in ref XY )
	for XIndex in XRANGE do
	    for YIndex in YRANGE do
		out_integer	(TTY, G [XIndex, YIndex], "  ")
	    endfor
	    out_record (TTY)
	endfor
endprocedure

GRID := XY ( [1] : Y ( [1..1] : 10, [2..4] : 3))//,
//	     [2] : Y ( [1..2] : 20, [3..4] : 3))


tty_line ("dynamic grid assigned from inline constructor")
out_grid( GRID )

endmodule