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