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