Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr49_rec2.adb
blob: 9a0fe7ac514327e1a659a14a1ea9a16bd1fd6255 [
file
] [
log
] [
blame
]
package
body
Discr49_Rec2
is
function
Value
(
Obj
:
Child
)
return
Integer
is
begin
return
Value
(
Parent
(
Obj
));
end
;
end
Discr49_Rec2
;