blob: 8a1250a60b96eee74fee1579db759b8b7de865ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- { dg-do compile }
package Pack7 is
type R (D : Natural) is record
S : String (1 .. D);
N : Natural;
B : Boolean;
end record;
for R'Alignment use 4;
pragma Pack (R);
end Pack7;
|