gcc/testsuite/gnat.dg/oconst6.ads

   1 -- { dg-do compile }
   2 -- { dg-final { scan-assembler-not "elabs" } }
   3
   4 package OCONST6 is
   5
   6    type Sequence is array (1 .. 1) of Natural;
   7
   8    type Message is record
   9       Data : Sequence;
  10    end record;
  11
  12    for Message'Alignment use 1;
  13    pragma PACK (Message);
  14
  15    ACK : Message := (Data => (others => 1));
  16
  17 end;
  18