PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization7.adb
blob166839494658e67da9fa926d303b8bf1ae2164dc
1 -- { dg-do compile }
2 -- { dg-options "-O3" }
3 -- { dg-options "-O3 -msse" { target i?86-*-* x86_64-*-* } }
5 package body Loop_Optimization7 is
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;
16 end Loop_Optimization7;