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