Test suite results for test file webtbs/tw3292.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

Test file "webtbs/tw3292.pp" information:

t_id 1357
t_adddate 2004/09/13
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Result type Cat. Count Percentage First date Last Date
Successfully run 50 100.0 2024/05/21 01:22:00 34 2024/05/21 03:13:00 32
i386 12 24.0 2024/05/21 01:22:00 34 2024/05/21 03:02:00 25
x86_64 33 66.0 2024/05/21 01:33:00 15 2024/05/21 03:13:00 32
aarch64 5 10.0 2024/05/21 01:42:00 32 2024/05/21 03:08:00 37
linux 46 92.0 2024/05/21 01:22:00 34 2024/05/21 03:10:00 16
win32 1 2.0 2024/05/21 03:02:00 25 2024/05/21 03:02:00 25
solaris 3 6.0 2024/05/21 03:08:00 30 2024/05/21 03:13:00 32
3.3.1 30 60.0 2024/05/21 01:33:00 15 2024/05/21 03:13:00 32
3.2.3 20 40.0 2024/05/21 01:22:00 34 2024/05/21 03:04:00 27

Source: 

{ Source provided for Free Pascal Bug Report 3292 }
{ Submitted by "Vincent Snijdes" on  2004-09-03 }
{ e-mail: vslist@zonnet.nl }
program bug3292;

{$ifdef fpc}{$mode objfpc}{$H+}{$endif}

uses
  Classes, uw3292a;

type
  TDerived = class(TMiddle)
  private
    procedure a(var m); message 1;
    procedure b; override;
  end;

{ TDerived }

procedure TDerived.a(var m);
begin
  writeln('A; In TDerived');
  inc(acnt);
  inherited a(m);
end;

procedure TDerived.b;
begin
  writeln('B: In TDerived');
  inc(bcnt);
  inherited b;
end;

var
  o: TDerived;
  m: longint;

begin
  o := TDerived.Create;
  acnt:=0;
  bcnt:=0;
  o.a(m);
  o.b;
  if acnt<>2 then
    halt(1);
  if bcnt<>2 then
    halt(1);
end.

Link to SVN view of webtbs/tw3292.pp source.