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/] [subp_elim_errors.adb] - Diff between revs 304 and 338

Rev 304	Rev 338
`-- [ dg-do compile }`	`-- [ dg-do compile }`

`with System;`	`with System;`

`package body Subp_Elim_Errors is`	`package body Subp_Elim_Errors is`

`type Acc_Proc is access procedure;`	`type Acc_Proc is access procedure;`

`procedure Proc is`	`procedure Proc is`
`begin`	`begin`
`null;`	`null;`
`end Proc;`	`end Proc;`

`procedure Pass_Proc (P : Acc_Proc) is`	`procedure Pass_Proc (P : Acc_Proc) is`
`begin`	`begin`
`P.all;`	`P.all;`
`end Pass_Proc;`	`end Pass_Proc;`

`procedure Pass_Proc (P : System.Address) is`	`procedure Pass_Proc (P : System.Address) is`
`begin`	`begin`
`null;`	`null;`
`end Pass_Proc;`	`end Pass_Proc;`

`begin`	`begin`
`Proc; -- { dg-error "eliminated" }`	`Proc; -- { dg-error "eliminated" }`

`Pass_Proc (Proc'Access); -- { dg-error "eliminated" }`	`Pass_Proc (Proc'Access); -- { dg-error "eliminated" }`

`Pass_Proc (Proc'Address); -- { dg-error "eliminated" }`	`Pass_Proc (Proc'Address); -- { dg-error "eliminated" }`

`Pass_Proc (Proc'Code_Address); -- { dg-error "eliminated" }`	`Pass_Proc (Proc'Code_Address); -- { dg-error "eliminated" }`
`end Subp_Elim_Errors;`	`end Subp_Elim_Errors;`