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