gcc/gcc/testsuite/gnat.dg/complex1_pkg.ads

package Complex1_Pkg is

  procedure Coord (x,y : out Float);

end Complex1_Pkg;