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

* delphi mode only

Browse Source
This commit is contained in:
peter 2003-01-01 21:09:49 +00:00
parent 2b6f661cbc
commit 0692123640
1 changed files with 5 additions and 5 deletions

10
tests/tbf/tb0126.pp
View File

@ -2,24 +2,24 @@
{ This program should fail compilation, since
the declaration is not the same as the actual
implementation, checked against Delphi 3 -
the class keyword is missing in front
the class keyword is missing in front
of procedure tmyclass.myproc
}
{$ifdef fpc}
{$mode objfpc}
{$mode delphi}
{$endif}
type
tmyclass = class
class procedure myproc;virtual;
end;
{ missing class keyword in front of procedure }
procedure tmyclass.myproc;
begin
end;
Begin
end.