Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
generic_inst5.adb
blob: 25e92f08200a040c7ae0531fe87e9bcf60a868e5 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
procedure
Generic_Inst5
is
generic
package
G1
is
end
G1
;
generic
with
package
I1
is
new
G1
;
package
G2
is
end
G2
;
package
body G1
is
package
I2
is
new
G2
(
I1
=>
G1
);
end
G1
;
package
I1
is
new
G1
;
begin
null
;
end
;