Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect9.ads
blob: 38a0ae44b8647f862cb458dbf988790ee2d68a57 [
file
] [
log
] [
blame
]
with
Vect9_Pkg
;
use
Vect9_Pkg
;
package
Vect9
is
type
Rec
is
record
Data
:
Vector_Access
;
end
record
;
procedure
Proc
(
This
:
in
Rec
;
CV
:
in
Unit_Vector
;
Data
:
in
out
Unit_Vector
);
end
Vect9
;