Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
equal4_controlled_filter.ads
blob: d7f1dd4fb87f63f7a732ecfbc52facdcea3886b6 [
file
] [
log
] [
blame
]
with
Equal4_Smart_Pointers
;
generic
package
Equal4_Controlled_Filter
is
type
Object_T
is
private
;
function
True
return
Object_T
;
private
package
Smart
is
new
Equal4_Smart_Pointers
;
type
Object_T
is
new
Smart
.
Pointer
;
end
Equal4_Controlled_Filter
;