URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [renaming1.adb] - Diff between revs 304 and 338

Rev 304	Rev 338
`-- { dg-do compile}`	`-- { dg-do compile}`
`-- { dg-options "-gnatwa" }`	`-- { dg-options "-gnatwa" }`

`with Text_IO;`	`with Text_IO;`
`use Text_IO;`	`use Text_IO;`
`package body renaming1 is`	`package body renaming1 is`
`procedure Fo (A : Text_IO.File_Access) is`	`procedure Fo (A : Text_IO.File_Access) is`
`begin`	`begin`
`if A = Text_IO.Standard_Output then`	`if A = Text_IO.Standard_Output then`
`null;`	`null;`
`end if;`	`end if;`
`end Fo;`	`end Fo;`
`end;`	`end;`