gcc/testsuite/gnat.dg/stack_usage1_pkg.adb


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

package body Stack_Usage1_Pkg is

   function Ident_Int (X : Integer) return Integer is
   begin
      return X;
   end Ident_Int;

   procedure My_Proc (X : R) is
   begin
      null;
   end My_Proc;

end Stack_Usage1_Pkg;