gcc-4.9/gcc/testsuite/gnat.dg/stack_usage1_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12

package Stack_Usage1_Pkg is

   function Ident_Int (X : Integer) return Integer;

   type R is
       record
          C0, C1, C2, C3, C4, C5, C6, C7, C8, C9 : Integer;
       end record;

   procedure My_Proc (X : R);

end Stack_Usage1_Pkg;