blob: 5c903b5e1892aa8f204eed5136760f79aa22e737 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %fail }
{ Source provided for Free Pascal Bug Report 2070 }
{ Submitted by "MrNoop" on 2002-08-09 }
{ e-mail: mrnoop@the-asw.com }
{$mode objfpc}
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)}
|
