blob: 1873437f3b48b67bb13606ac73620a02c0fcad5a (
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
|
{$ifdef fpc}{$mode objfpc}{$endif}
type
tobj = class
procedure proc1 (a: integer);virtual;
end;
tobj1 = class (tobj)
procedure proc1 (a: char);overload;
end;
tobj2 = class (tobj1)
{ this will try to override tobj1.proc1 which is not
allowed and therefor needs an error }
procedure proc1 (a: integer);override;
end;
procedure tobj.proc1 (a: integer);
begin
end;
procedure tobj1.proc1 (a: char);
begin
end;
procedure tobj2.proc1 (a: integer);
begin
end;
begin
end.
|
