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