Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
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
;