gcc/testsuite/gnat.dg/stack_usage1_pkg.ads

   1 package 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
  12 end Stack_Usage1_Pkg;