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