1-- { dg-do compile } 2 3package body Bit_Packed_Array4 is 4 5 procedure Process (M : Message_Type) is 6 D : Data_Type; 7 begin 8 D := M.Data; 9 end; 10 11end Bit_Packed_Array4; 12