%set debug_print_ccode = true
main module PUSHFLEX
// Push flexible array returned by function, but dont push others
	use TEXTIO

	function test()
	    returns test : integer initially 7
	endfunction


	procedure joe
	    param
		A : in ref integer
	    endparam
	    out_integer (TTY, A)
	    out_record (TTY)
	endprocedure

	Joe (test())
endmodule