Test suite results for test file tbs/tb0355.pp

Test run data :

Test file "tbs/tb0355.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934995.

Source:

{$mode delphi}

const
  CSV_Internal = 10;

type
  PTypeRec = ^TTypeRec;
  TTypeRec = record
    atypeid: Word;
  end;


function ChangeType(newtype: PTypeRec): Pointer;

begin
  if NewType.AtypeID = CSV_Internal then
  begin
  end;
end;

begin
end.

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