bug0109 and bug0110

tests/tbf0109.pp

@@ -0,0 +1,9 @@
+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.

tests/tbs0110.pp → tests/tbf0110.pp

@@ -1,3 +1,5 @@
+{ $OPT= -Fu../compiler }
+
 uses aasm;
 
 Begin

tests/tbs0109.pp

@@ -4,6 +4,6 @@ Type T = (aa,bb,cc,dd,ee,ff,gg,hh);
 Var a: Tset;
 
 Begin
-  If (aa in a^) Then begin end;
+  If (aa in a) Then begin end;
   {it seems that correct code is generated, but the syntax is wrong}
 End.