runtime: copy more of scheduler from Go 1.7 runtime

[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;