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
Skip analyzer strndup test on hppa*-*-hpux*
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
prot3_pkg.adb
blob
07ae1829f602844f099b11ef6b10fa8862168bfa
1
package body
Prot3_Pkg
is
2
3
protected body
Prot
is
4
function
Fn
(
J
:
Short_Integer
)
return
Rec
5
is
6
begin
7
return
(
V1
=>
J
*
J
,
8
V2
=>
J
);
9
end
;
10
11
procedure
Foo
(
J
:
Short_Integer
)
is
12
begin
13
Val
:=
Fn
(
J
);
14
end
;
15
end
Prot
;
16
17
end
Prot3_Pkg
;