1package Max_Size_Pkg is
2
3  type Index is range 1 .. 5;
4
5  type Arr1 is array (Index range <>) of Short_Short_Integer;
6
7  type Arr2 is array (Index range <>) of Integer;
8
9end Max_Size_Pkg;
10