%set debug_print_ccode = true
%set debug_tree = true

// The Combination of ARM X_RANGE_ERROR and the reference to any
// item in a flexible array [1..?N] 
// causes compiler error "discrete type, object, value required"

module RANGECHCW
procedure RANGECHCK (Obj : in ref packed array [1..?N] of 16 bit integer)

    ARM X_RANGE_ERROR

    declare (Temp : 16 bit integer)
    for Index := 1 to N do
	Temp := Obj [Index]		// THIS IS THE BAD GUY...
    endfor

endprocedure
endmodule