blob: d033c9abce2b78c57fbad189e07d7250a7e25b72 [file] [log] [blame]
-- { dg-do compile}
-- { dg-options "-gnatwa" }
with Text_IO;
use Text_IO;
package body renaming1 is
procedure Fo (A : Text_IO.File_Access) is
begin
if A = Text_IO.Standard_Output then
null;
end if;
end Fo;
end;