Test suite results for test file test/tprop1.pp

Test run data :

Run ID:
Operating system: solaris
Processor: sparc
Version: 3.3.1
Fails/OK/Total: 57/9104/9161
Version: 3.3.1
Full version: 3.3.1-15627-g64f2e4b-unpushed
Comment: -Agas -Cg -Fd
Machine: unstable10s
Category: 1
SVN revisions: e601156:d3fd0b8:64f2e4b:6a10963
Submitter: pierre
Date: 2024/04/28 12:53:00
Previous run: 940458
Next run: 941965

Hide skipped tests

Hide successful tests

Test file "test/tprop1.pp" information:

t_id 1215
t_adddate 2003/12/11
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
482406010941218TrueFalseSuccessfully run

Record count: 1

No log of 941218.

Source:

{$mode fpc}
var
  FErrno : longint;
function GetROVar:longint;
begin
  GetROVar:=3;
end;
function GetErrno:longint;
begin
  GetErrno:=FErrno;
end;
procedure SetErrno(e:longint);
begin
  FErrno:=e;
end;

property
  Errno:longint read GetErrno write SetErrno;
  ROVar:longint read GetROVar;

begin
  FErrno:=1;
  if Errno<>1 then
    begin
      writeln('Error 1');
      halt(1);
    end;
  Errno:=2;  
  if Errno<>2 then
    begin
      writeln('Error 2');
      halt(1);
    end;
  if ROVar<>3 then
    begin
      writeln('Error 3');
      halt(1);
    end;
end.

Link to SVN view of test/tprop1.pp source.