gcc-4.9/gcc/testsuite/gnat.dg/array23.adb


1
2
3
4
5
6
7
8
9
10

-- { dg-do link }

with Array23_Pkg1;
with Array23_Pkg2;

procedure Array23 is
  A : Array23_Pkg1.Arr;
begin
  A(Array23_Pkg2.One)(1) := 0;
end;