Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr20.adb
blob: 85111e25b4eee8b01c7c337614400f8c2758c6c3 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Aggr20
is
procedure
Proc
(
R
:
out
Rec3
)
is
begin
R
:=
(
Callback
=>
Nil_Rec2
);
end
;
end
Aggr20
;