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