Test suite results for test file webtbs/tw3694.pp

Test run data :

t_id 1510
t_adddate 2005/03/06
t_result 0
t_knownrunerror 0

tr_id	run	tr_ok	tr_skip	tr_result
523676363	947892	True	False	Successfully run

Record count: 1

program bug1;

function f : tobject;
begin
  f := tobject.create;
end;

var
  s : single;
begin
  s := single(f);
end.