1package 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
18end Bit_Packed_Array4;
19