Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr29.adb
blob: 834437f6fb8e5b139ef157e017fbd68b1d86310d [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Discr29
is
procedure
Proc
(
R
:
out
Rec3
)
is
begin
R
:=
(
False
,
Tmp
);
end
;
end
Discr29
;