Test suite results for test file webtbf/tw0807.pp

Test run data :

Run ID:
Operating system: wasi
Processor: wasm32
Version: 3.3.1
Fails/OK/Total: 275/8854/9129
Version: 3.3.1
Full version: 3.3.1-16504-gf356d8cc51
Comment: -n -vx -Adefault -CTnoexceptions -CTwasmthreads -Fd
Machine: cfarm14
Category: 1
SVN revisions: f356d8cc51:7d83cea8da:5769d737d1:fc1050a834
Submitter: muller
Date: 2024/09/26 20:18:00 <> 2024/09/25
Previous run: 0
Next run: 1018117

Hide skipped tests

Hide successful tests

Test file "webtbf/tw0807.pp" information:

t_id 1077
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
9496733491015615TrueFalseSuccess, compilation failed

Record count: 1

No log of 1015615.

Source:

{ %FAIL }
{$mode objfpc}

Program test;

uses crt;

type
  TMatrix = class
              Constructor Create;
            private
              Elements : array [1..10,1..10] of real;
            end;

Constructor TMatrix.Create;

begin
end;

OPERATOR :=(r:Real):TMatrix;
  BEGIN
    WITH RESULT DO
      BEGIN
{ Do something }
      END;
    writeln ('Call to overloaded operator :=, real operand');
  END;
operator :=(m : TMatrix):TMatrix;
  BEGIN
    WITH RESULT DO
      BEGIN
{ Do something }
      END;
    writeln ('Call to overloaded operator :=, matrix operand');
  END;

var
  m : TMatrix;
  m2 : TMatrix;

begin
  clrscr;
  writeln ('Performing calculations...');
  m:=TMatrix.Create;
  m2:=TMatrix.Create;
  writeln ('Assigning real to matrix...');
{ This one works }
  m:=1;
  writeln ('Assigning matrix to matrix...');
{ This one does not work }
  m:=m2;
  writeln ('Done.');
end.

Link to SVN view of webtbf/tw0807.pp source.