blob: 5cdd089cf1e6c1cd5a6cc3f4528247afe0ef6047 [file] [log] [blame]
package body Aggr21_Pkg is
procedure Init (R : out Rec) is
begin
R := (A => 5, S => <>, N => 7);
end;
end Aggr21_Pkg;