blob: e6d8c543b0f0998a72fdc76fb34882f35144a6a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ 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.
|
