gcc/testsuite/gnat.dg/concat5_pkg1.ads

package Concat5_Pkg1 is

  procedure Scan (S : String);

end Concat5_Pkg1;