blob: 330203121defdea0a73d02254c41e1d09117cabc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{ %fail }
{ Source provided for Free Pascal Bug Report 3000 }
{ Submitted by "Vincent Snijders" on 2004-03-03 }
{ e-mail: vslist@zonnet.nl }
{$mode objfpc}{$H+}
uses
Classes;
type
TA=class
procedure bla(const a: string); virtual; abstract;
end;
TB=class(TA)
procedure bla(a: string); override;
end;
procedure TB.bla(a: string);
begin
end;
begin
end.
|
