blob: 5d15f5e9d73248d85b4f9d71fdbe3898ed6a7d5a [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-fdump-tree-optimized" }
package body ZCUR_Attr is
function F return Integer is (0);
end ZCUR_Attr;
-- { dg-final { scan-tree-dump "zero_call_used_regs \[(\]\"all\"\[)\]" "optimized" } }