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