gcc/testsuite/gnat.dg/stack_usage1_pkg.adb

   1 package body Stack_Usage1_Pkg is
   2
   3    function Ident_Int (X : Integer) return Integer is
   4    begin
   5       return X;
   6    end Ident_Int;
   7
   8    procedure My_Proc (X : R) is
   9    begin
  10       null;
  11    end My_Proc;
  12
  13 end Stack_Usage1_Pkg;