Test suite results for test file webtbs/tw2830.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/tw2830.pp" information:

t_id 1213
t_adddate 2003/12/09
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/18 01:10:00 32 2024/05/18 01:46:00 0
i386 37 74.0 2024/05/18 01:10:00 32 2024/05/18 01:46:00 0
x86_64 11 22.0 2024/05/18 01:24:00 26 2024/05/18 01:45:00 0
aarch64 2 4.0 2024/05/18 01:29:00 34 2024/05/18 01:35:00 32
linux 49 98.0 2024/05/18 01:10:00 32 2024/05/18 01:46:00 0
go32v2 1 2.0 2024/05/18 01:45:00 0 2024/05/18 01:45:00 0
3.3.1 25 50.0 2024/05/18 01:14:00 31 2024/05/18 01:43:00 22
3.2.3 25 50.0 2024/05/18 01:10:00 32 2024/05/18 01:46:00 0

Source: 

{ Source provided for Free Pascal Bug Report 2830 }
{ Submitted by "marco (the gory bugs department)" on  2003-12-04 }
{ e-mail:  }
{$ifdef fpc}{$mode Delphi}{$endif}

Uses SysUtils;

Type
  TFloat=double;
  TCompiledExpression = function: TFloat of object;

procedure bla;
var
  Ce: TCompiledExpression;
begin
  if (TMethod(Ce).Code = TMethod(Ce).Code) and
    (TMethod(Ce).Data = TMethod(Ce).Data) then
     ;
end;

begin
  bla;
end.

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