Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
ancestor_type.ads
blob: 2ed1f19c2c82044598f712d1905babc11e4b62ca [
file
] [
log
] [
blame
]
package
Ancestor_Type
is
type T
is
tagged
private
;
package
B
is
function
make
return
T
;
end
B
;
private
type T
is
tagged record
n
:
Natural
;
end
record
;
end
Ancestor_Type
;