Test suite results for test file webtbs/tw3073.pp

Test run data :

Test file "webtbs/tw3073.pp" information:

t_id 1292
t_adddate 2004/05/21
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 947983.

Source:

{ Source provided for Free Pascal Bug Report 3073 }
{ Submitted by "Martin Schreiber" on  2004-04-30 }
{ e-mail:  }
program project1;

 {$mode objfpc}{$H+}

uses
 Classes;
var
 po1,po2: pwidechar;
begin
 po1:= 'abc';
 po2:= po1+1;
 if po2-po1<>1 then
   halt(1);
 if pwidechar(24)-pwidechar(22)<>1 then
  halt(1);
end.

Link to SVN view of webtbs/tw3073.pp source.