Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/subp_elim_errors.adb @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- [ dg-do compile } with System; package body Subp_Elim_Errors is type Acc_Proc is access procedure; procedure Proc is begin null; end Proc; procedure Pass_Proc (P : Acc_Proc) is begin P.all; end Pass_Proc; procedure Pass_Proc (P : System.Address) is begin null; end Pass_Proc; begin Proc; -- { dg-error "eliminated" } Pass_Proc (Proc'Access); -- { dg-error "eliminated" } Pass_Proc (Proc'Address); -- { dg-error "eliminated" } Pass_Proc (Proc'Code_Address); -- { dg-error "eliminated" } end Subp_Elim_Errors;