Test suite results for test file test/cg/tcnvptr.pp

Test run data :

Test file "test/cg/tcnvptr.pp" information:

t_id 1391
t_adddate 2004/11/02
t_result 0
t_knownrunerror 0
t_opts -Sew

Detailed test run results:

Record count: 1

No log of 940456.

Source:

{ %opt=-Sew }

var
  p : pointer;
  b : byte;
  w : word;
  a : array[0..10] of char;
begin
  b:=1;
  w:=1;
  p:=@a;
  // This should work without warnings
  inc(p,b);
  inc(p,w);
end.

Link to SVN view of test/cg/tcnvptr.pp source.