gcc/testsuite/gnat.dg/frunaligned1.ads

   1 package FRUnaligned1 is
   2    type r is array (1 .. 72) of Boolean;
   3    pragma Pack (r);
   4    type s is record
   5       x : Boolean;
   6       y : r;
   7    end record;
   8    for s use record
   9       x at 0 range 0 .. 0;
  10       y at 0 range 1 .. 72;
  11    end record;
  12 end FRUnaligned1;