1generic 2 type T is private; 3package Generic_Inst12_Pkg1 is 4 5 generic 6 procedure Inner_G (Val : T); 7 8 procedure Proc (Val : T); 9 pragma Inline (Proc); 10 11end Generic_Inst12_Pkg1; 12