Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.83.B
/
.
/
gcc
/
testsuite
/
gnat.dg
/
stack_usage1_pkg.adb
blob: 1538b858fa3b04fdf8d203e28a5880348c12b392 [
file
] [
log
] [
blame
]
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
;