Gitiles
Code Review
Sign In
android-review.linaro.org
/
toolchain
/
gcc-aarch64
/
84c1139dabfcb7c4a02a39acef7b835cb0ad4584
/
.
/
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
;