gcc/testsuite/gnat.dg/loop_optimization7.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O3" }
   3 -- { dg-options "-O3 -msse" { target i?86-*-* x86_64-*-* } }
   4
   5 package 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
  16 end Loop_Optimization7;