gcc/testsuite/gnat.dg/opt22_pkg.ads

package Opt22_Pkg is

   procedure Fail;

   procedure Put (S : String);

end Opt22_Pkg;