main module filler
// test some operations that work with filled structures
//%set debug_tree = true
%set use_routine_names = true
export	s_type,s_const,s1_const,s_var,s_var_s,
	c_type,	clr_type, cb_type,cba_type, c_array_s,cb_array_s,x,y,z
	
declare
	// this structure actually takes 8 bytes
	// ( one byte filler between b and a and one
	//  more filler byte following b.
	//
	s_type 		is structure			
				b : 8 bit integer
				a : packed array [1..5] of char
			endstructure

	s_const		= s_type (b:1)
	s1_const	= s_type (b:2,a: "hello" )

	s_var		: s_type
	s_var_s		: static s_type

	c_type 		is array [1..4] of 16 bit integer
	clr_type 	is c_type initially table c_type (0,0,0,0)
	
	cb_type 	is 16 bit integer initially 0
	cba_type 	is array [1..4] of cb_type

	c_array 	: clr_type
	c_array_s 	: static clr_type
	cb_array	: cba_type
	cb_array_s	: static cba_type
	


	x		: static 16 bit integer range 1..10
	y		: static integer range 1..10
	z		: static 1..10

enddeclare

procedure mark( i: integer )

endprocedure

endmodule