1 -- { dg-do compile { target i?86-*-* x86_64-*-* } }
2 -- { dg-options "-O3 -msse2 -fdump-tree-optimized" }
6 function "+" (X
, Y
: Sarray
) return Sarray
is
9 for I
in Sarray
'Range loop
15 procedure Add
(X
, Y
: Sarray
; R
: out Sarray
) is
17 for I
in Sarray
'Range loop
22 procedure Add
(X
, Y
: not null access Sarray
; R
: not null access Sarray
) is
24 for I
in Sarray
'Range loop
25 pragma Loop_Optimize
(Ivdep
);
32 -- { dg-final { scan-tree-dump-not "goto" "optimized" } }