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