Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
tagged_type_pkg.ads
blob: 80926103214beb14238acf3f3c3422ffa46a70ef [
file
] [
log
] [
blame
]
package
Tagged_Type_Pkg
is
type TT
is
tagged limited record
Self
:
access TT
'Class := TT'
Unchecked_Access
;
end
record
;
function
Pass_TT_Access
(
Obj
:
access TT
'Class) return access TT'
Class
;
end
Tagged_Type_Pkg
;