gcc/testsuite/gnat.dg/aggr14_pkg.ads

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;