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