gcc-4.9/gcc/testsuite/gnat.dg/specs/pack7.ads


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;