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 -- { dg-require-effective-target sse }
   5
   6 package body Loop_Optimization7 is
   7
   8   function Conv (A : Arr) return Arr is
   9     Result : Arr;
  10   begin
  11     for I in A'Range loop
  12       Result (I) := Conv (A (I));
  13     end loop;
  14     return Result;
  15   end;
  16
  17 end Loop_Optimization7;