2 -- { dg-options "-O -fdump-rtl-loop2_unroll-details" }
4 package body Unroll4
is
6 function "+" (X
, Y
: Sarray
) return Sarray
is
9 for I
in Sarray
'Range loop
10 pragma Loop_Optimize
(Unroll
);
16 procedure Add
(X
, Y
: Sarray
; R
: out Sarray
) is
18 for I
in Sarray
'Range loop
19 pragma Loop_Optimize
(Unroll
);
26 -- { dg-final { scan-rtl-dump-times "optimized: loop unrolled 7 times" 2 "loop2_unroll" } }