PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / stack_usage1_pkg.adb
blob1538b858fa3b04fdf8d203e28a5880348c12b392
1 package body Stack_Usage1_Pkg is
3 function Ident_Int (X : Integer) return Integer is
4 begin
5 return X;
6 end Ident_Int;
8 procedure My_Proc (X : R) is
9 begin
10 null;
11 end My_Proc;
13 end Stack_Usage1_Pkg;