testarray: obj
Range:
in r: ref Indexed
r: ref Range
r1: ref Range
r2: ref Range
actualRanges: ref Indexed
testArray:
in ndim: var integer
in ranges: ref Indexed(ndim,Range)
ta: ref testArray
i: var integer