1generic 2 3 Size : Positive; 4 5package Pack13_Pkg is 6 7 type Object is private; 8 9private 10 11 type Bit is range 0 .. 1; 12 for Bit'size use 1; 13 14 type Object is array (1 .. Size) of Bit; 15 pragma Pack (Object); 16 17end Pack13_Pkg; 18