* new bugs

tests/webtbf/tw2787.pp

@@ -0,0 +1,26 @@
+{ %fail }
+
+{$mode objfpc}
+
+Type tClass1=Class
+       Public
+        Constructor Init;Virtual;
+     End;
+
+Type tClass2=Class(tClass1)
+       Public
+        Constructor Init;Override;Virtual;Overload;
+     End;
+
+Constructor tClass1.Init;
+Begin
+   Inherited Create;
+End;
+
+Constructor tClass2.Init;
+Begin
+   Inherited Init;
+End;
+
+Begin
+End.

tests/webtbs/tw2788.pp

@@ -0,0 +1,9 @@
+{$mode objfpc}
+
+Type tLObject=Class;
+
+Type tLObject=Class
+     End;
+
+Begin
+End.

tests/webtbs/tw2789.pp

@@ -0,0 +1,16 @@
+{ %opt=-Sen }
+
+Var B:Longint;
+
+Procedure Stuff;
+Var I:Longint;
+Begin
+   Case B Of
+      0:For I:=1 To 100 Do WriteLn;
+   End;
+End;
+
+Begin
+   B:=0;
+   Stuff;
+End.