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