From 85189db6fe0c975261d41c50f9142cebf5374ea7 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 12 Mar 2007 20:04:27 +0000
Subject: [PATCH] * test fixed, hopefully

git-svn-id: trunk@6810 -
---
 tests/webtbf/tw3473.pp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/webtbf/tw3473.pp b/tests/webtbf/tw3473.pp
index 33ad13a432..072d2c8627 100644
--- a/tests/webtbf/tw3473.pp
+++ b/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;