//%set debug_print_ccode = true
Main Module PPACKBUG4

    Use TEXTIO

    Declare
	Name_structure is packed
	    structure
		Joe	: 4 bit integer
		Sam	: 16 bit cardinal
		String	: packed array [1..3] of char
	    endstructure

	Key_record_type is 
	    Structure
		Class		: 8 bit cardinal
		Name		: Name_structure
		Select class from
		    Case 0,1,2:
			Select class from
			    Case 0:
				Command		: 16 bit cardinal
			    Case 1:
				Qualifier	: 8 bit cardinal
			    Case 2:
				My_name		: name_structure
			EndSelect
			Data		: 8 bit integer		// 8 bits
		EndSelect
	    EndStructure

	Overlay_template	: static key_record_type Initially 
		key_record_type ( class: 1, qualifier: 4,  data: 33 )

	Temp_char	: static 8 bit integer
    EndDeclare
    Temp_char	:= overlay_template .data

//%if false
    Out_string 		( TTY, "Data : " )
    out_integer		( TTY, overlay_template . data)
    Out_record 		( TTY )

    Overlay_template . data := 23
    Out_string 		( TTY, "post loaded Data : " )
    out_integer		( TTY, overlay_template . data)
    Out_record 		( TTY )

    out_string 		(TTY, "sizeof(Key_record_type)= ")
    out_integer		(TTY, integer(sizeof(Key_record_type)))
    out_record		(TTY)

//%endif
EndModule