gcc/testsuite/gnat.dg/pack15.ads

   1 package Pack15 is
   2
   3   type Flags is array (1..2) of Boolean;
   4   for Flags'Component_Size use 1;
   5
   6   type Messages is record
   7     Status_Flags : Flags;
   8   end record;
   9
  10   for Messages use record
  11     Status_Flags at 0 range 1 .. 2;
  12   end record;
  13
  14   O : Messages;
  15
  16   Buffer : Integer;
  17   Status_Flags : Flags;
  18   for Status_Flags'Address use Buffer'Address;
  19
  20   procedure Transfer;
  21
  22 end Pack15;