1 2 3 4 5 6 7 8 9
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;