2 -- { dg-options "-O2" }
4 procedure self_aggregate_with_call is
6 type Values is array (1 .. 8) of Natural;
12 function Clone (Components: Values) return Values is
17 procedure Process (V : in out Vector) is
19 V.Components (Values'First) := 1;
20 V := (Components => Clone (V.Components));
22 if V.Components (Values'First) /= 1 then