gcc/testsuite/gnat.dg/pack13_pkg.ads

   1 generic
   2
   3   Size : Positive;
   4
   5 package Pack13_Pkg is
   6
   7   type Object is private;
   8
   9 private
  10
  11   type Bit is range 0 .. 1;
  12   for Bit'size use 1;
  13
  14   type Object is array (1 .. Size) of Bit;
  15   pragma Pack (Object);
  16
  17 end Pack13_Pkg;