freepascal.compiler/tests/test/ugeneric4.pp

unit ugeneric4;

interface

{$mode objfpc}

type
   TList=generic(_T) class(TObject)
     data : _T;
     procedure Fill;
   end;

var
  globaldata : string;

implementation

procedure LocalFill;
begin
  globaldata:='Unit';
end;


procedure TList.Fill;
begin
  LocalFill;
  data:=globaldata;
end;

end.