gcc/testsuite/gnat.dg/misaligned_nest.adb

   1 -- { dg-do run }
   2 -- { dg-options "-gnatp" }
   3
   4 procedure 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;
  20 begin
  21    for K in P'Range loop
  22       P(K).I.V := 1;
  23    end loop;
  24 end;
  25
  26