Test suite results for test file tbs/tb0060.pp

Test run data :

Test file "tbs/tb0060.pp" information:

t_id 1030
t_adddate 2003/10/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 488056.

Source:

{ Old file: tbs0067b.pp }
{  (Work together)                         OK 0.99.1 }

unit tb0060;

interface


type
  tlong=record
    a : longint;
  end;

procedure p(var l:tlong);

implementation

uses ub0060;

{ the tlong parameter is taken from unit bug0067,
  and not from the interface part of this unit.
  setting the uses clause in the interface part
  removes the problem }

procedure p(var l:tlong);
begin
  ub0060.p(ub0060.tlong(l));
end;

end.

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