repo.or.cz
/
llvm
/
avr.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Big change #1 for personality function references:
[llvm/avr.git]
/
test
/
FrontendAda
/
array_ref.adb
blob
9577e21ad70f759224758ef2d1360467228dab7e
1
-- RUN: %llvmgcc -c %s
2
procedure
Array_Ref
is
3
type
A
is array
(
Natural
range
<>,
Natural
range
<>)
of
Boolean
;
4
type
A_Access
is access
A
;
5
function
Get
(
X
:
A_Access
)
return
Boolean
is
6
begin
7
return
X
(
0
,
0
);
8
end
;
9
begin
10
null
;
11
end
;