{$MODE OBJFPC}
unit testunit;

interface

type
   generic TTest<T: class> = record
      Field: T;
   end;

generic procedure Test<T: class>(Arg: specialize TTest<T>);

implementation

generic procedure Test<T>(Arg: specialize TTest<T>);
begin
end;

end.