{ %FAIL }

unit tgenfunc27;

{$mode objfpc}{$H+}

interface

type
  Test = record

  end;

generic procedure Test<T>;

implementation

generic procedure Test<T>;
begin

end;

end.