Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
platform
/
external
/
llvm
/
713bc585ef5f60129c950f69392cefa85b9aaac1
/
.
/
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;