1 2 3 4
-- { dg-do compile } -- { dg-options "-O -gnatN" } with FE_Inlining_Helper; procedure FE_Inlining is new FE_Inlining_Helper;