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/] [specs/] [renamings.ads] - Diff between revs 304 and 338

Rev 304	Rev 338
`package Renamings is`	`package Renamings is`

`package Inner is`	`package Inner is`
`procedure PI (X : Integer);`	`procedure PI (X : Integer);`
`end Inner;`	`end Inner;`

`procedure P (X : Integer) renames Inner.PI;`	`procedure P (X : Integer) renames Inner.PI;`
`procedure P (X : Float);`	`procedure P (X : Float);`
`pragma Convention (C, P); -- { dg-error "non-local entity" }`	`pragma Convention (C, P); -- { dg-error "non-local entity" }`

`procedure Q (X : Float);`	`procedure Q (X : Float);`
`procedure Q (X : Integer) renames Inner.PI;`	`procedure Q (X : Integer) renames Inner.PI;`
`pragma Convention (C, Q); -- { dg-error "non-local entity" }`	`pragma Convention (C, Q); -- { dg-error "non-local entity" }`
`end Renamings;`	`end Renamings;`