Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
lto26_pkg1.adb
blob: c68b134ffaa4ad3ada9b7b76282c0a5827d154cf [
file
] [
log
] [
blame
]
with
Lto26_Pkg2
;
use
Lto26_Pkg2
;
package
body
Lto26_Pkg1
is
procedure
Set
(
R
:
Rec
;
A
:
Stream_Element_Array
;
C
:
Unsigned_8
)
is
procedure
My_Build
is
new
Build
;
begin
My_Build
(
A
,
C
);
end
;
end
Lto26_Pkg1
;