summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/frunaligned1.ads
blob: 4a8db361b484a094c751ffdbd5ae240ed8ed6049 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
package FRUnaligned1 is
   type r is array (1 .. 72) of Boolean;
   pragma Pack (r);
   type s is record
      x : Boolean;
      y : r;
   end record;
   for s use record
      x at 0 range 0 .. 0;
      y at 0 range 1 .. 72;
   end record;
end FRUnaligned1;