//%set debug_print_ccode = true
main module except

declare
    blank_char is char initially $P
    I : array [1..1] of blank_char
enddeclare

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

I [1] := test ("1")

//guard
//    catch
//	Default:
//	    reraise
//endguard
exception joe
raise joe

endmodule