Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr10.adb
blob: 4ad834fd12453cf26c95bf5027eff4e2ad7b93cb [
file
] [
log
] [
blame
]
package
body
Discr10
is
function
Get
(
X
:
R
)
return
R
is
begin
return
R
'(D1 => False, D2 => False, D3 => X.D3);
end;
end Discr10;