usr/share/fpcsrc/3.2.0/tests/tbf/tb0097.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / tbf / tb0097.pp

{ %FAIL }

{ derived from Web Bug Report 1203 }
{$mode Delphi}
type
     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
     a=object
     protected
        fondisplay : someprocedureofobjectype;
     public
        a:longint;
     end;

     b=object(A)
     protected
        fondisplay : someprocedureofobjectype;
     public
        a:longint;
     end;

begin
end.