gcc/testsuite/gnat.dg/renaming1.ads

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