Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
limited2.adb
blob: e3b28ec601803794ea4b232dfdc115f581e806f3 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Limited2_Pack_2
;
procedure
Limited2
is
begin
Limited2_Pack_2
.
Create
(
P
=>
Limited2_Pack_2
.
C1
);
end
Limited2
;