Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
generic_inst12.adb
blob: 4f9974900c38792f142a32537fb7047d4f54133d [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O -gnatn"
}
with
Generic_Inst12_Pkg2
;
procedure
Generic_Inst12
is
procedure
My_Inner_G
is
new
Generic_Inst12_Pkg2
.
Inner_G
;
begin
My_Inner_G
(
1
);
Generic_Inst12_Pkg2
.
Proc
(
1
);
end
;