blob: 318148d1a68b0a3f6de2194b442ce9289fee3429 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- { dg-compile }
package Small_Alignment is
type Int is range -512 .. 511;
for Int'Alignment use 1;
type R is record
I: Int;
end record;
Pragma Pack (R);
end Small_Alignment;
|