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