[Ada] Memory leak with 'Range of a function call in a loop