1-- { dg-do compile }
2-- { dg-options "-O" }
3
4package 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
19end Opt44;
20