gcc/testsuite/gnat.dg/stack_usage1_pkg.adb

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;