Test suite results for test file tbs/tb0169.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-15620-gb18c93d-unpushed
Comment: -Cg -Fd
Machine: unstable10s
Category: 1
SVN revisions: 1de3aba:0481a46:b18c93d:61397d4
Submitter: pierre
Date: 2024/04/27 13:52:00
Previous run: 928787
Next run: 941232

Hide skipped tests

Hide successful tests

Test file "tbs/tb0169.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
477747356940467TrueFalseSuccessfully run

Record count: 1

No log of 940467.

Source:

{ Old file: tbs0202.pp }
{ flag results not supported with case                  OK 0.99.11 (PFV) }

program silly;

var greater : boolean;

procedure error;
begin
   Writeln('Error in tbs0202');
   Halt(1);
end;

procedure compare(i,j : integer);
begin
   case (i>j) of
     true : begin
                greater:=true;
            end;
     false : begin
                greater:=false;
             end;
   end;
end;

begin
  compare(45,2);
  if not greater then
    error;
  compare(-5,26);
  if greater then
    error;
end.

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