2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gnat.dg / array23.adb

-- { dg-do link }

with Array23_Pkg1;
with Array23_Pkg2;

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