1 2 3 4 5 6 7
package Inline8_Pkg2 is generic D : Integer; function Calc (A : Integer) return Integer; end Inline8_Pkg2;