Test suite results for test file tbs/tb0255.pp

Test run data :

Test file "tbs/tb0255.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940948.

Source:

{ Old file: tbs0295.pp }
{ forward type definition is resolved wrong            OK 0.99.13 (PFV) }

type
  t1=longint;

procedure p;
type
  pt1=^t1;
  t1=string;
var
  t : t1;
  p : pt1;
begin
  p:=@t;
  p^:='test';
end;

begin
  p;
end.

Link to SVN view of tbs/tb0255.pp source.