%set debug_print_ccode = true
main module compbug

procedure compbug
    param
	A : in ref packed array [1..?N] of char
    endparam

    declare
	B : packed array [1..10] of char
    enddeclare

    if B = A do
	B [1] := $P
    endif
endprocedure
endmodule