1-- { dg-do run }
2-- { dg-options "-gnatws" }
3
4with System;
5
6procedure Pack11 is
7
8  type R1 is record
9    A1, A2, A3 : System.Address;
10  end record;
11
12  type R2 is record
13    C : Character;
14    R : R1;
15  end record;
16  pragma Pack (R2);
17
18  procedure Dummy (R : R1) is begin null; end;
19
20  procedure Init (X : R2) is
21  begin
22    Dummy (X.R);
23  end;
24
25  My_R2 : R2;
26
27begin
28  Init (My_R2);
29end;
30