Sign in
llvm
/
llvm
/
2aba8f7f84766599496a6a542d72cc21d1d27a23
/
.
/
test
/
FrontendAda
/
array_ref.adb
blob: 2bf4b7988d6d1e205f2ad4bc91b4ca9e01966faf [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
S
%
s
procedure
Array_Ref
is
type A
is
array
(
Natural
range
<>,
Natural
range
<>)
of
Boolean
;
type A_Access
is
access A
;
function
Get
(
X
:
A_Access
)
return
Boolean
is
begin
return
X
(
0
,
0
);
end
;
begin
null
;
end
;