1-- { dg-do compile }
2
3with Ada.Strings.Bounded;
4
5package Pack11 is
6
7  package My_Strings is new Ada.Strings.Bounded.Generic_Bounded_Length (4);
8  subtype My_Bounded_String is My_Strings.Bounded_String;
9
10  type Rec1 is tagged null record;
11
12  type Rec2 is record
13    S : My_Bounded_String;
14  end record;
15  pragma Pack (Rec2);
16
17  type Rec3 is new Rec1 with record
18    R : Rec2;
19  end record;
20
21end Pack11;
22