Test suite results for test file tbs/tb0131.pp

Test run data :

Run ID:
Operating system: linux
Processor: mips
Version: 3.3.1
Fails/OK/Total: 49/9162/9211
Version: 3.3.1
Full version: 3.3.1-15675-g485b31de215
Comment: -Fl/usr/lib/gcc/mips-linux-gnu/8 -k-m -kelf32btsmip -Fl/usr/lib/gcc/mips-linux-gnu/8 -Fl/usr/lib32 -Fl/lib32 -Fl/usr/lib/mips-linux-gnu -O2 -Fd
Machine: cfarm230
Category: 1
SVN revisions: 9b1861a1049:d6cf3c98d0e:e657d6a07df:485b31de215
Submitter: muller
Date: 2024/05/08 16:39:00 <> 2024/05/06
Previous run: 944872
Next run: 954182

Hide skipped tests

Hide successful tests

Test file "tbs/tb0131.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
525602780948213TrueFalseSuccessfully run

Record count: 1

No log of 948213.

Source:

{ Old file: tbs0152.pp }
{ End value of loop variable must be calculated before loop variable is initialized.                              OK 0.99.11 (PM) }

Program tbs0152;

{
  Shows wrong evaluation of loop boundaries. First end boundary must
  be calculated, only then Loop variable should be initialized.
  Change loop variable to J to see what should be the correct output.
}

PROCEDURE LGrow(VAR S : String;C:CHAR;Count:WORD);

 VAR  I,J :WORD;

BEGIN
  I:=ORD(S[0]);           { Keeping length in local data eases optimalisations}
  IF I'1111111abcedfghij' then
    begin
       writeln('tbs0152 fails');
       halt(1);
    end;
end.

Link to SVN view of tbs/tb0131.pp source.