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