gcc/testsuite/gnat.dg/opt44.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O" }
   3
   4 package body Opt44 is
   5
   6    procedure Addsub (X, Y : Sarray; R : out Sarray; N : Integer) is
   7    begin
   8       for I in Sarray'Range loop
   9          pragma Loop_Optimize (Ivdep);
  10          pragma Loop_Optimize (Vector);
  11          if N > 0 then
  12            R(I) := X(I) + Y(I);
  13          else
  14            R(I) := X(I) - Y(I);
  15          end if;
  16       end loop;
  17    end;
  18
  19 end Opt44;