1 -- { dg-do compile { target i?86-*-* x86_64-*-* } }
2 -- { dg-options "-O3 -msse2 -fdump-tree-vect-details" }
6 function "+" (X
, Y
: Sarray
) return Sarray
is
9 for I
in Sarray
'Range loop
10 pragma Loop_Optimize
(Vector
);
16 procedure Add
(X
, Y
: Sarray
; R
: out Sarray
) is
18 for I
in Sarray
'Range loop
19 pragma Loop_Optimize
(Vector
);
26 -- { dg-final { scan-tree-dump-times "vectorized 1 loops" 2 "vect" } }