1 2 3 4 5 6 7 8
-- { dg-do compile } with Inline4_Pkg; use Inline4_Pkg; procedure Inline4 is begin Test (0); end;