paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test fixed, hopefully

Browse Source 
git-svn-id: trunk@6810 -
This commit is contained in:
florian 2007-03-12 20:04:27 +00:00
parent 20eca6128f
commit 85189db6fe
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbf/tw3473.pp
View File

@ -1,6 +1,7 @@
{ %fail } { %fail }
{$mode delphi} { $mode delphi}
{$mode objfpc}
type type
TA = class TA = class
procedure douseful; virtual; abstract; procedure douseful; virtual; abstract;
@ -14,7 +15,11 @@ type
procedure TB.douseful; procedure TB.douseful;
begin 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; inherited;
end; end;