main module enumrange
	export A, Subset
	use TEXTIO
declare
	A is [B, c, d, e, f, g]
	Subset is A range C..g

	S_default is integer range 1..4
	S_User is 16 bit integer range 1..4
	

enddeclare

	out_string (TTY, "Size of A = ")
	out_integer (TTY, integer(sizeof(A)))
	out_record (TTY)

	out_string (TTY, "Size of Subset = ")
	out_integer (TTY, integer(sizeof(Subset)))
	out_record (TTY)


	out_string (TTY, "Size of S_Default = ")
	out_integer (TTY, integer(sizeof(S_Default)))
	out_record (TTY)

	out_string (TTY, "Size of S_User = ")
	out_integer (TTY, integer(sizeof(S_User)))
	out_record (TTY)



endmodule