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

no message

Browse Source
This commit is contained in:
florian 2000-12-10 14:05:06 +00:00
parent 7c436e40e5
commit af6d5083b3
3 changed files with 67 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/tbf/tb0096.pp Normal file
View File

@ -0,0 +1,23 @@
{ derived from source for Bug Report 1203 }
{ in FPC mode this shouldn't compile }
{$mode objfpc}
type
someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
a=class
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
b=class(A)
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
begin
end.

22
tests/tbf/tb0097.pp Normal file
View File

@ -0,0 +1,22 @@
{ derived from Web Bug Report 1203 }
{$mode Delphi}
type
someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
a=object
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
b=object(A)
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
begin
end.

22
tests/tbf/tb0098.pp Normal file
View File

@ -0,0 +1,22 @@
{ derived from Web Bug Report 1203 }
{$mode objfpc}
type
someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
a=object
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
b=object(A)
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
begin
end.