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


1
2
3
4
5
6
7
8
9
10
11
12

package Pack4 is

   type Buffer is array (Natural range <>) of Boolean;

   type Root (Size : Natural) is tagged record
      Data : Buffer (1..Size);
   end record;
   pragma Pack (Root);

   type Derived is new Root with null record;

end Pack4;