Test suite results for test file tbs/tb0216.pp

Test run data :

Test file "tbs/tb0216.pp" information:

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

Detailed test run results:

Record count: 1

No log of 939786.

Source:

{ Old file: tbs0255.pp }
{ internal error 10 with in and function calls         OK 0.99.12 (FK) }


function a: char;
begin
  a:='c';
end;

begin
  if #12 in [a, a, a, a, a] then ; { <--- }
end.

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