//%set debug_print_ccode = true
Main Module IMPBUG2
	use TEXTIO
	Declare
		A_type is
			Structure
				A_1: integer
			EndStructure
		B_type is
			Structure
				B : array [1..4] of char
				B_2: A_type initially A_type ( A_1: 7 )
			EndStructure
		C_dyn		: B_type
		C_static	: static B_Type	// this one doesnt
	EndDeclare
    procedure T ( A : in ref B_type)
	out_string (TTY, " . B_2 . A_1 = ")
	out_integer (TTY, A . B_2 . A_1)
	out_record (TTY) 
    endprocedure

    T (C_static)
    T (C_dyn)
EndModule