blob: dc1d356eb9369611769ec856921812654e1e4eea (
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
32
33
34
|
{ %version=1.1 }
{ %FAIL }
{$ifdef fpc}{$mode objfpc}{$endif}
type
tobj = class
procedure proc1 (a: integer);virtual;
end;
tobj1 = class (tobj)
procedure proc1 (a: char);
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.
|
