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