Test suite results for test file webtbs/tw3351.pp

Test run data :

View Test suite results

Test file "webtbs/tw3351.pp" information:

t_id 1374
t_adddate 2004/10/12
t_result 0
t_knownrunerror 0
t_opts -Sc

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ %opt=-Sc }

{ Source provided for Free Pascal Bug Report 3351 }
{ Submitted by "Maciej Żenczykowski" on  2004-10-10 }
{ e-mail: maze@cela.pl }

type
  PInteger = ^Integer;
var
  i : integer;
  t : array [0..1] of integer;

function f : PInteger;
  begin
    f := @t[i];
    Inc(i);
    Write('.');
  end;

begin
  i:=0;
  f^ += 1;
  writeln(t[0], ' ', t[1]);
  if i<>1 then
    halt(1);
end.

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