Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gnat.dg
/
specs
/
self_class.ads
blob: 56c7ab4760c91089e264baff32ddc0293cc1302c [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
Self_Class
is
type P6
is
private
;
private
type P6
is
tagged record
Self
:
access P6
'Class;
end record;
end Self_Class;