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