소스 검색

* test fixed, hopefully

git-svn-id: trunk@6810 -
florian 18 년 전
부모
커밋
85189db6fe
1개의 변경된 파일7개의 추가작업 그리고 2개의 파일을 삭제
  1. 7 2
      tests/webtbf/tw3473.pp

+ 7 - 2
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;