gcc/testsuite/gnat.dg/renaming1.adb

   1 -- { dg-do compile}
   2 -- { dg-options "-gnatwa" }
   3
   4 with Text_IO;
   5 use Text_IO;
   6 use type Text_IO.File_Access;
   7 package body renaming1 is
   8    procedure Fo (A : Text_IO.File_Access) is
   9    begin
  10       if A = Text_IO.Standard_Output then
  11          null;
  12       end if;
  13    end Fo;
  14 end;