URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [renaming1.adb] - Blame information for rev 378

Go to most recent revision | Details | Compare with Previous | View Log


-- { 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;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { 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;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [renaming1.adb] - Blame information for rev 378