paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbf/tb0126.pp
View File

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