package Aggr14_Pkg is
type A is array (Integer range 1 .. 3) of Short_Short_Integer;
X : A := (1, 2, 3);
procedure Proc;
end Aggr14_Pkg;