1 -- { dg-do compile { target i?86-*-* x86_64-*-* } }
2 -- { dg-options "-O3 -msse2 -fdump-tree-vect-details" }
6 procedure Add_Sub
(X
, Y
: Sarray
; R
,S
: out Sarray
) is
11 R
(I
+ 1) := X
(I
) + Y
(I
);
12 S
(I
+ 1) := X
(I
) - Y
(I
);
18 -- { dg-final { scan-tree-dump-not "possible aliasing" "vect" } }