Test suite results for test file tbs/tb0159.pp

Test run data :

Test file "tbs/tb0159.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940426.

Source:

{ Old file: tbs0190.pp }
{ can't have typecast for var params ??                 OK 0.99.11 (PM) }

procedure a(var b: boolean);
begin
  b:=true;
end;

var C: byte;

begin
  a(boolean(c));
end.

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