main module subenum
arm X_range_error
	declare
	    Enum is [a, b, c, d, e, f, g, h, i]
	    Sub_enum is Enum range c..g
	    Item : array [Sub_enum] of integer
	    Item_index : enum
	enddeclare

	ITem_index := a
	Item [Item_index] := 2
endmodule