1package Pack5 is
2
3   type Small is range -32 .. 31;
4
5   type Arr is array (Integer range <>) of Small;
6   pragma Pack (Arr);
7
8   type Rec is record
9      Y: Arr (1 .. 10);
10    end record;
11   pragma Pack (Rec);
12
13end Pack5;
14