{ %FAIL }

unit tgenfunc26;

{$mode objfpc}{$H+}

interface

generic procedure Test<T>;

type
  Test = record

  end;

implementation

generic procedure Test<T>;
begin

end;

end.