main module ts
//%set debug_print_ccode=true
use	TEXTIO

procedure a (s: inout ref packed array[1..?n] of char)

    s := "GOOD"

endprocedure

declare (s: packed array[1..4] of char)

a(s)

out_string (tty, s)
out_record (tty)

endmodule