1-- { dg-do compile }
2-- { dg-options "-O3" }
3-- { dg-options "-O3 -msse" { target i?86-*-* x86_64-*-* } }
4
5package body Loop_Optimization7 is
6
7  function Conv (A : Arr) return Arr is
8    Result : Arr;
9  begin
10    for I in A'Range loop
11      Result (I) := Conv (A (I));
12    end loop;
13    return Result;
14  end;
15
16end Loop_Optimization7;
17