blob: 072d2c8627a01f72ab88419b92d50c18c54179e8 (
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
26
27
28
29
30
31
|
{ %fail }
{ $mode delphi}
{$mode objfpc}
type
TA = class
procedure douseful; virtual; abstract;
end;
TB = class(TA)
public
procedure callabs;
procedure douseful; override;
end;
procedure TB.douseful;
begin
{ This should give an error, comaptible with Kylix
Delphi eats this
FP shouldn't by default
(FK) }
inherited;
end;
procedure TB.Callabs;
begin
end;
begin
end.
|