PR middle-end/44101

[pf3gnuchains/gcc-fork.git] / 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;