blob: 5a2f7e3a27c994a3dd317618361a6a75f5ba3296 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %opt=-Sew -vw }
{ Source provided for Free Pascal Bug Report 2815 }
{ Submitted by "Mattias Gaertner" on 2003-11-30 }
{ e-mail: mattias@freepascal.org }
program VirtualCreate;
{$mode objfpc}{$H+}
type
TAbstractClass = class
public
constructor Create;
constructor VirtualCreate; virtual; abstract;
end;
constructor TAbstractClass.Create;
begin
VirtualCreate;
end;
begin
end.
|
