trunk/gcc/testsuite/gnat.dg/renaming1.adb

   1 -- { dg-do compile}
   2 -- { dg-options "-gnatwa" }
   3
   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;