1package Inline3_Pkg is 2 3 procedure Test (I : Integer); 4 pragma Inline_Always (Test); 5 6end Inline3_Pkg; 7