Test suite results for test file tbs/tb0092.pp

Test run data :

Test file "tbs/tb0092.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934963.

Source:

{ Old file: tbs0109.pp }
{ syntax error not detected when using a set as pointer OK 0.99.1 (FK) }

Type T = (aa,bb,cc,dd,ee,ff,gg,hh);
     Tset = set of t;

Var a: Tset;

Begin
  If (aa in a) Then begin end;
  {it seems that correct code is generated, but the syntax is wrong}
End.

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