* new bug

tests/webtbs/tw2920.pp

@@ -0,0 +1,21 @@
+unit tw2920;
+
+interface
+{$mode Delphi}
+
+Uses uw2920;
+
+type myclass2= class(myclass)
+                function bb:string; override;
+                end;
+
+implementation
+
+function myclass2.bb:string;
+
+begin
+  bb:='b';
+end;
+
+begin
+end.

tests/webtbs/uw2920.pp

@@ -0,0 +1,24 @@
+{ Source provided for Free Pascal Bug Report 2920 }
+{ Submitted by "marco (Gory Bugs Department)" on  2004-01-27 }
+{ e-mail:  }
+unit uw2920;
+
+interface
+
+{$mode Delphi}
+{$H+}
+
+type myclass= class
+                function bb:string; virtual;
+                end;
+
+implementation
+
+function myclass.bb:string;
+
+begin
+  bb:='a';
+end;
+
+begin
+end.