Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
3c89812109835c516d6ae413594d2173446bdae8
/
.
/
test
/
FrontendAda
/
array_range_ref.adb
blob: ae9bdc6cfcdf66a35cf2590588c484ba08d0aec1 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
c
%
s
procedure
Array_Range_Ref
is
A
:
String
(
1
..
3
);
B
:
String
:=
A
(
A
'RANGE)(1 .. 3);
begin
null;
end;