Test suite results for test file tbs/tb0259.pp

Test run data :

Run ID:
Operating system: openbsd
Processor: x86_64
Version: 3.3.1
Fails/OK/Total: 22/9358/9380
Version: 3.3.1
Full version: 3.3.1-15586-g69ee0ae9b1-unpushed-dirty
Comment: -Xd -Fl/home/muller/sys-root/x86_64-openbsd/usr/lib -Fl/home/muller/sys-root/x86_64-openbsd/usr/local/lib -dFPC_USE_LIBC -gw -O1 -Fd
Machine: gcc220
Category: 1
SVN revisions: 69ee0ae9b1:628e6d2b46:3f8bbd3b00:2f9ed0576e
Submitter: pierre
Date: 2024/04/19 10:41:00
Previous run: 0
Next run: 935149

Hide skipped tests

Hide successful tests

Test file "tbs/tb0259.pp" information:

t_id 487
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
443599981934954TrueFalseSuccessfully run

Record count: 1

No log of 934954.

Source: 

{ Old file: tbs0302.pp }
{ inherited property generates wrong assembler         OK 0.99.13 (PFV) }

{$ifdef fpc}{$mode objfpc}{$endif}
type
  c1=class
    Ffont : longint;
    property Font:longint read Ffont;
  end;

  c2=class(c1)
    function GetFont:longint;
  end;

function c2.GetFont:longint;
begin
  result:=Font;
  result:=inherited Font;
end;

begin
end.

Link to SVN view of tbs/tb0259.pp source.