Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
lto9_pkg2.adb
blob: 0291d608c4e583cad3dcb44ddd8a88bd137b8ba2 [
file
] [
log
] [
blame
]
package
body
Lto9_Pkg2
is
procedure
Put
(
List
:
in
out
List_Type
;
Elem_Ptr
:
in
Element_Ptr
;
Location
:
in
Index
)
is
begin
List
.
Elements
(
Location
)
:=
Elem_Ptr
;
end
Put
;
end
Lto9_Pkg2
;