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