Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt91.ads
blob: b31aa8de350ef88de4dbafd7fbc27dfd7e5de1be [
file
] [
log
] [
blame
]
with
Opt91_Pkg
;
use
Opt91_Pkg
;
package
Opt91
is
type
True_Relation_Rec
is
null
record
;
function
Custom_Image
(
Self
:
True_Relation_Rec
)
return
String
;
package
True_Relation
is
new
Pure_Relation
(
Ty
=>
True_Relation_Rec
);
end
Opt91
;