Sign in
gnu
/
gcc.git
/
ab7c7b46c35ed1be68d4c020a2f20ee96f68b64b
/
.
/
gcc
/
testsuite
/
gnat.dg
/
task3_pkg2.ads
blob: aee5c7349413804602c1c968e7b74c7bb5aa02ec [
file
] [
log
] [
blame
]
with
Task3_Pkg1
;
use
Task3_Pkg1
;
package
Task3_Pkg2
is
type
Root
(
Discr
:
Integer
)
is
tagged limited record
Wrap
:
Task_Wrapper
(
Discr
);
end
record
;
end
Task3_Pkg2
;