Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
interface9.adb
blob: ec46e20349d9339c28337190c2725b01c0a1851b [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Interface9_Root
.
Child
;
procedure
Interface9
is
package
R
is
new
Interface9_Root
(
Real
=>
Float
);
package
RC
is
new
R
.
Child
;
begin
null
;
end
Interface9
;