5 package body Subp_Elim_Errors is
7 type Acc_Proc is access procedure;
14 procedure Pass_Proc (P : Acc_Proc) is
19 procedure Pass_Proc (P : System.Address) is
25 Proc; -- { dg-error "eliminated" }
27 Pass_Proc (Proc'Access); -- { dg-error "eliminated" }
29 Pass_Proc (Proc'Address); -- { dg-error "eliminated" }
31 Pass_Proc (Proc'Code_Address); -- { dg-error "eliminated" }