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

* bugfix report 2070

Browse Source
This commit is contained in:
carl 2002-09-08 07:00:30 +00:00
parent d1ac166584
commit 563a31edb4
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbf/tw2070.pp Normal file
View File

@ -0,0 +1,17 @@
{ Source provided for Free Pascal Bug Report 2070 }
{ Submitted by "MrNoop" on 2002-08-09 }
{ e-mail: mrnoop@the-asw.com }
type
TPersistent = class (TObject)
public
constructor Create(Proprio:TPersistent);virtual;
end;
TServeur = class (TPersistent)
public
constructor Create(Proprio:TPersistent);override;
end;
constructor TServeur.Create(Proprio:TPersistent);
begin
inherited Create; {<- lethal error (see above)}