repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>:
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
vect10.ads
blob
aa3aa343233b6197a13103afc81fb755e352dd44
1
with
Vect9_Pkg
;
use
Vect9_Pkg
;
2
3
package
Vect10
is
4
5
type
Rec
is record
6
Val
:
Unit
;
7
end record
;
8
9
type
Rec_Vector
is array
(
Positive
range
<>)
of
Rec
;
10
11
procedure
Proc
12
(
F
:
in
Rec_Vector
;
13
First_Index
:
in
Natural
;
14
Last_Index
:
in
Natural
;
15
Result
:
out
Unit
);
16
17
end
Vect10
;