gcc/testsuite/gnat.dg/renaming1.ads

with Text_IO;
package renaming1 is
   procedure Fo (A : Text_IO.File_Access);
end;