llvm-6502/test/AdaFrontend/array_range_ref.adb
2007-03-20 09:50:42 +00:00

8 lines
147 B
Ada

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