gcc/testsuite/gnat.dg/opt74_pkg.ads

package Opt74_Pkg is

   A : array (1 .. 10) of Integer := (others => 0);

   procedure Proc (Found : out Integer; Index : out Integer);

end Opt74_Pkg;