* new bug

tests/webtbs/tw2923.pp

@@ -0,0 +1,23 @@
+{ %opt=-O2 -CR }
+
+{ Source provided for Free Pascal Bug Report 2923 }
+{ Submitted by "Sergey Kosarevsky" on  2004-01-30 }
+{ e-mail: [email protected] }
+
+{$mode objfpc}
+
+Type tMyClass=Class
+       Public
+        Constructor Init;
+     End;
+
+Constructor tMyClass.Init;
+Begin
+   Inherited Create;
+End;                        // <- line 9
+
+Var A:tMyClass;
+
+Begin
+   A:=tMyClass.Init;
+End.