Merged revisions 6810 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r6810 | florian | 2007-03-12 21:04:27 +0100 (Mon, 12 Mar 2007) | 2 lines

* test fixed, hopefully

........

git-svn-id: branches/fixes_2_2@7136 -

tests/webtbf/tw3473.pp

@@ -1,6 +1,7 @@
 { %fail }
 
-{$mode delphi}
+{ $mode delphi}
+{$mode objfpc}
 type
   TA = class
     procedure douseful; virtual; abstract;
@@ -14,7 +15,11 @@ type
 
 procedure TB.douseful;
 begin
-  { This should give an error, comaptible with Kylix }
+  { This should give an error, comaptible with Kylix
+
+    Delphi eats this
+    FP shouldn't by default
+    (FK) }
   inherited;
 end;