blob: 4979bd4fc0220119a8e53e85caaa22e63018857d [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-O2" }
procedure self_aggregate_with_call is
type Values is array (1 .. 8) of Natural;
type Vector is record
Components : Values;
end record;
function Clone (Components: Values) return Values is
begin
return Components;
end;
procedure Process (V : in out Vector) is
begin
V.Components (Values'First) := 1;
V := (Components => Clone (V.Components));
if V.Components (Values'First) /= 1 then
raise Program_Error;
end if;
end;
V : Vector;
begin
Process (V);
end;