Test suite results for test file test/tstack.pp

Test run data :

Run ID:
Operating system: linux
Processor: aarch64
Version: 3.3.1
Fails/OK/Total: 40/9209/9249
Version: 3.3.1
Full version: 3.3.1-15595-g2e86cdb620
Comment: -Cg -Fl/usr/lib/gcc/aarch64-linux-gnu/13 -Fd
Machine: gcc103
Category: 1
SVN revisions: 2e86cdb620:b87e22151a:3f8bbd3b00:902c93f3c3
Submitter: pierre
Date: 2024/04/23 01:46:00 <> 2024/04/22
Previous run: 936590
Next run: 937908

Hide skipped tests

Hide successful tests

Test file "test/tstack.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
458016033937280TrueFalseSuccessfully run

Record count: 1

No log of 937280.

Source:

{$S+}

{ Program to check that an infinite recursion
  does generate a RTE ... }

{$R-}
{ make that recursion really infinite 
  needs that range check is disabled }

const 
  level : longint = 0;

function inf_rec(x : longint) : longint;

begin
  inc(level);
  inf_rec:=x+inf_rec(x-1);
end;


const
  saveexit : pointer = nil;
  x : longint = 0;

procedure stack_check_exit;

begin
  exitproc:=saveexit;
  if errorcode<>0 then
    begin
      Writeln('An error occured at level ',level);
      if errorcode=202 then
        begin
          Writeln('Stack overflow correctly handled');
          erroraddr:=nil;
          errorcode:=0;
          exitcode:=0;
        end
      else if errorcode=216 then
        begin
          Writeln('RTL returns an RTE 216 on stack overflow');
          Writeln('Not perfect, but acceptable');
          erroraddr:=nil;
          errorcode:=0;
          exitcode:=0;
        end;
    end
  else
    begin
      exitcode:=1;
      errorcode:=1;
    end;
  exitproc:=saveexit;
end;

begin
  saveexit:=exitproc;
  exitproc:=@stack_check_exit;
  x:=inf_rec(5000);
end. 

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