fpc/tests/webtbs/uw34287a.pp

unit uw34287a;

{$IFDEF FPC}
 {$MODE DELPHI}
{$ENDIF}

interface

uses
  Classes;

type
  TBase = class(TComponent)
  public
    function Bar<T: TComponent>(const P1: string; out P2: T): Boolean;
  end;

  TFoo = class(TBase)
  public
    function Bar(const P1: string): Boolean;
  end;

implementation

function TBase.Bar<T>(const P1: string; out P2: T): Boolean;
begin
  Result := False;
end;

function TFoo.Bar(const P1: string): Boolean;
var
  C: TComponent;
begin
  Result := inherited Bar<TComponent>(P1, C);
end;

end.