Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
sso10.adb
blob: 5a796f2d493f331c88d85e992dc8c9cc4bb61d25 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
with
SSO10_Pkg
;
use
SSO10_Pkg
;
procedure SSO10
is
procedure
Inner
(
R
:
Root
'Class) is
begin
Run (R);
end;
R : Root;
begin
Inner (R);
end;