* new bugs

tests/webtbf/tw2209.pp

@@ -0,0 +1,18 @@
+{ %opt=-Sew }
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2209 }
+{ Submitted by "Erik Scheffers" on  2002-10-30 }
+{ e-mail: [email protected] }
+{$mode delphi}
+program case_bug;
+
+var uninitialized : integer;
+
+begin
+    case (uninitialized) of
+       1 :   writeln('it''s a one!');
+       else  writeln('it''s something else...');
+    end
+end.
+

tests/webtbs/tw2210.pp

@@ -0,0 +1,20 @@
+{ Source provided for Free Pascal Bug Report 2210 }
+{ Submitted by "peter" on  2002-10-30 }
+{ e-mail: [email protected] }
+
+{$mode objfpc}
+unit tw2210;
+interface
+implementation
+type
+tclass = class
+            function blah (p:integer) : boolean;
+         end;
+
+function tclass.blah(p:integer):boolean;
+begin
+   blah := true;
+end;
+
+end.
+