Test suite results for test file tbs/tb0004.pp

Test run data :

Test file "tbs/tb0004.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1027381.

Source:

{ Old file: tbs0005.pp }
{  tests the if 1=1 then ... bugs                       OK 0.9.2 }

uses
  erroru;

begin
  if 1=1 then
    begin
      Writeln('OK');
    end;
  if 1<>1 then
    begin
      Error;
    end;
end.

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