blob: 874e309493a17dc4b2e47e751247e3769cd1da69 [file] [log] [blame]
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;