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

Module EXPORTSTR

    Export Level_1, Level_2,  Level_3, Array_of_Level_1

    declare

	Level_3 is 
	    structure
		RRR: char
	    	TTT: integer initially 2
	    endstructure

	Level_2 is
	    structure
		A_1: 7 bit integer initially 4
		A_2: integer
		A_3: integer initially 5
	    endStructure

	blank_char is char initially $.
	stg_type is packed array [1..3] of blank_char

	level_1 is
	    structure
		C_1 : integer
		C_2 : integer initially 5
		stg	: stg_type initially  ("AB")
		B_1	: 4 bit integer initially 7
		B_2	: Level_2 initially Level_2 ( A_1: 7, A_2: 9 )
	    endStructure

	Array_of_Level_1 is array [1..1] of Level_1 initially Level_1 ()

    enddeclare
endmodule