main module tpa
%set debug_print_ccode = true
declare
    B is packed structure
	A : packed array [1..2] of 1 bit logical
	B : char
    endstructure

C : Static B
enddeclare
C.B := $A
endmodule