Corrected date in changelog
[official-gcc.git] / gcc / testsuite / gnat.dg / renaming1.adb
blobd033c9abce2b78c57fbad189e07d7250a7e25b72
1 -- { dg-do compile}
2 -- { dg-options "-gnatwa" }
4 with Text_IO;
5 use Text_IO;
6 package body renaming1 is
7 procedure Fo (A : Text_IO.File_Access) is
8 begin
9 if A = Text_IO.Standard_Output then
10 null;
11 end if;
12 end Fo;
13 end;