Sign in
llvm
/
llvm
/
2aba8f7f84766599496a6a542d72cc21d1d27a23
/
.
/
test
/
FrontendAda
/
array_range_ref.adb
blob: 037c5aa8b6f012d1401fcedccc34895da0e55b64 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
S
%
s
procedure
Array_Range_Ref
is
A
:
String
(
1
..
3
);
B
:
String
:=
A
(
A
'RANGE)(1 .. 3);
begin
null;
end;