Sign in
llvm
/
llvm
/
refs/heads/release_29
/
.
/
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;