Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr9_pkg.ads
blob: c7c7b9e10b8a292994f3e5d7fb9452ef46388b7b [
file
] [
log
] [
blame
]
package
Aggr9_Pkg
is
type
Byte
is
range
0
..
255
;
type R1
is
record
A
,
B
:
Byte
;
end
record
;
type R2
is
record
F
:
R1
;
end
record
;
procedure
Send
(
M
:
R2
);
end
Aggr9_Pkg
;