gcc/testsuite/gnat.dg/inline15_gen.ads

--  gen.ads

with Inline15_Types;

generic
package Inline15_Gen is
   function Func (Val : Inline15_Types.Enum) return Inline15_Types.Rec with Inline;

   procedure Call_Func with Inline;
end Inline15_Gen;