//%set debug_print_ccode = true
main module glabel

declare
    blank_char is 8 bit integer initially 3
    I : packed array [1..1] of blank_char
enddeclare

function test
    param
	A : ref packed array [1..?N] of blank_char
    endparam
    returns T : 8 bit integer
endfunction

declare (joe : packed array [1..1] of 8 bit integer)
I [1] := test (Joe)

guard

    catch
	Default:
	    reraise
endguard

endmodule