gcc-4.9/gcc/testsuite/gnat.dg/aggr14_pkg.ads


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;