generic

  type Interval_T is private;

package Inline18_Gen2 is

  type T is new Integer;

  function Func (I : Interval_T) return T;

end Inline18_Gen2;