Sign in
ara-mdk
/
platform
/
external
/
llvm
/
0a38dc5fda9a22aceecccbad2f024b118ce1d5d8
/
.
/
test
/
FrontendAda
/
array_ref.adb
blob: 9577e21ad70f759224758ef2d1360467228dab7e [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
c
%
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
;