gcc/testsuite/gnat.dg/bit_packed_array4.ads

   1 package Bit_Packed_Array4 is
   2
   3    type Data_Type is array (1 .. 39) of Boolean;
   4    pragma Pack (Data_Type);
   5    for Data_Type'Alignment use 1;
   6
   7    type Message_Type is record
   8       Valid : Boolean;
   9       Data  : Data_Type;
  10    end record;
  11    for Message_Type use record
  12       Valid at 0 range 0 .. 0;
  13       Data  at 0 range 1 .. 39;
  14    end record;
  15
  16    procedure Process (M : Message_Type);
  17
  18 end Bit_Packed_Array4;