testsuite/gnat.dg/opt77_pkg.ads

package Opt77_Pkg is

  procedure Proc (S : String; N : in out Natural; To_Add : out Boolean);

end Opt77_Pkg;