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