Fix bugs section.
[llvm-complete.git] / test / FrontendAda / array_range_ref.adb
blobae9bdc6cfcdf66a35cf2590588c484ba08d0aec1
1 -- RUN: %llvmgcc -c %s
2 procedure Array_Range_Ref is
3 A : String (1 .. 3);
4 B : String := A (A'RANGE)(1 .. 3);
5 begin
6 null;
7 end;