llvm/test/FrontendAda/array_range_ref.adb
2010-11-25 21:21:59 +00:00

8 lines
134 B
Ada

-- RUN: %llvmgcc -S %s
procedure Array_Range_Ref is
A : String (1 .. 3);
B : String := A (A'RANGE)(1 .. 3);
begin
null;
end;