new bugs

tests/webtbs/tw3683.pp

@@ -0,0 +1,21 @@
+{ Source provided for Free Pascal Bug Report 3683 }
+{ Submitted by "Christian Iversen" on  2005-02-22 }
+{ e-mail: [email protected] }
+program test;
+
+type
+  foo = (a, b);
+const
+{$ifdef use2byte}
+  T=a;
+{$else}
+  T=b;
+{$endif}
+{$if T = a}
+  {$message 'T = a'}
+{$else}
+  {$message 'T = b'}
+{$ifend}
+
+begin
+end.

tests/webtbs/tw3691.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 3691 }
+{ Submitted by "Christian Iversen" on  2005-02-25 }
+{ e-mail: [email protected] }
+program test;
+
+type
+  x = (a, b, c);
+
+const
+  q = b;
+
+  {$if q in [a,c]  }{$message warn 'true'}{$else}{$message warn 'false'}{$ifend}
+  {$if q in [b]    }{$message warn 'true'}{$else}{$message warn 'false'}{$ifend}
+  {$if q in []     }{$message warn 'true'}{$else}{$message warn 'false'}{$ifend}
+  {$if q in [a,b,c]}{$message warn 'true'}{$else}{$message warn 'false'}{$ifend}
+
+begin
+end.