1-- { dg-do compile } 2-- { dg-options "-fdump-tree-optimized" } 3 4package body ZCUR_Attr is 5 function F return Integer is (0); 6end ZCUR_Attr; 7 8-- { dg-final { scan-tree-dump "zero_call_used_regs \[(\]\"all\"\[)\]" "optimized" } } 9