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" }