Test suite results for test file webtbs/tw1755.pp

Test run data :

Test file "webtbs/tw1755.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941025.

Source:

var
  err : boolean;

begin
  err:=false;

  write('assigned(nil): ');
  if assigned(nil) then
   err:=true
  else
   writeln('nil');
  write('assigned(pointer(0)): ');
  if assigned(pointer(0)) then
   err:=true
  else
   writeln('nil');
  write('assigned(pointer(10000)): ');
  if assigned(pointer(10000)) then
   writeln('assigned')
  else
   err:=true;

  if err then
   begin
     writeln('err');
     halt(1);
   end;

end.

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