summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/specs/pack4.ads
blob: 82b76d2f4574699638bcfb0a879db39e5845d68d (plain)
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;