blob: d59da8945e29f2e3a09bce7cd2f333e77aeeee08 [file] [log] [blame]
package body Aggr19_Pkg is
procedure Proc (Pool : in out Rec5) is
begin
Pool.Ent := (Kind => Two, Node => Pool.Ent.Node, I => 0);
end;
end ;