Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr49_rec1.adb
blob: c7ffa1eabf7a9dbfb2c792039e2db55eab0d8864 [
file
] [
log
] [
blame
]
package
body
Discr49_Rec1
is
function
Value
(
Obj
:
Parent
)
return
Integer
is
begin
return
Obj
.
V
+
Boolean
'Pos (Obj.Discr_1);
end;
end Discr49_Rec1;