Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
tagged3_pkg.ads
blob: d32afe2ae11b3ef9f5646c81a25df7dd6a578eb9 [
file
] [
log
] [
blame
]
package
Tagged3_Pkg
is
type
Parent
is
tagged
null
record
;
procedure
Prim1
(
Self
:
access
Parent
);
type
Child
is
new
Parent
with
null
record
;
procedure
Prim1
(
Self
:
access
Child
);
Child_Prim1_Called
:
Boolean
:=
False
;
end
;