1-- { dg-do compile }
2-- { dg-final { scan-assembler-not "elabs" } }
3
4package 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
17end;
18
19