1-- { dg-do run } 2-- { dg-options "-gnatp" } 3 4procedure Misaligned_Nest is 5 6 type Int is record 7 V : Integer; 8 end record; 9 10 type Block is record 11 B : Boolean; 12 I : Int; 13 end record; 14 pragma Pack (Block); 15 for Block'Alignment use 1; 16 17 type Pair is array (1 .. 2) of Block; 18 19 P : Pair; 20begin 21 for K in P'Range loop 22 P(K).I.V := 1; 23 end loop; 24end; 25 26 27