//----------------------------------------------------------------------
// Example of exporting a complicated structure with initial conditions
//---------------------------------------------------------------------

Module EXPORTSTR
	Export A_type, B_type
	Declare
		A_type is
			Structure
				A_1: 7 bit integer initially 4
				A_2: integer
			EndStructure
		blank_char is char initially $.
		stg_type is packed array [1..3] of blank_char

		B_type is
			Structure
			    stg	: stg_type initially  ("AB")
			    B_1	: 4 bit integer initially 7
			    B_2	: A_type initially A_type ( A_1: 7, A_2: 9 )
			EndStructure
	EndDeclare
EndModule