Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr21_pkg.adb
blob: 5cdd089cf1e6c1cd5a6cc3f4528247afe0ef6047 [
file
] [
log
] [
blame
]
package
body
Aggr21_Pkg
is
procedure
Init
(
R
:
out
Rec
)
is
begin
R
:=
(
A
=>
5
,
S
=>
<>,
N
=>
7
);
end
;
end
Aggr21_Pkg
;