* new bugs

tests/webtbf/tw2400.pp

@@ -0,0 +1,19 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2400 }
+{ Submitted by "Sergey Kosarevsky" on  2003-02-26 }
+{ e-mail: [email protected] }
+
+{$mode objfpc}
+
+Type tObj=Class
+        Class Constructor Init;
+     End;
+
+Class Constructor tObj.Init;
+Begin
+End;
+
+Begin
+   tObj.Init;
+End.