gcc/testsuite/gnat.dg/specs/pack5.ads

   1 package Pack5 is
   2
   3    type Small is range -32 .. 31;
   4
   5    type Arr is array (Integer range <>) of Small;
   6    pragma Pack (Arr);
   7
   8    type Rec is record
   9       Y: Arr (1 .. 10);
  10     end record;
  11    pragma Pack (Rec);
  12
  13 end Pack5;