1package Stack_Usage1_Pkg is
2
3   function Ident_Int (X : Integer) return Integer;
4
5   type R is
6       record
7          C0, C1, C2, C3, C4, C5, C6, C7, C8, C9 : Integer;
8       end record;
9
10   procedure My_Proc (X : R);
11
12end Stack_Usage1_Pkg;
13