mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:07:59 +02:00
50659b7e7f
parameters that do not appear in forward/interface definitions
(mantis #19434)
* added test for #17136 already works
git-svn-id: trunk@21524 -
28 lines
329 B
ObjectPascal
28 lines
329 B
ObjectPascal
{ %opt=-vw -Sew }
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TA = class
|
|
public
|
|
procedure A(X: boolean = false); virtual; abstract;
|
|
end;
|
|
|
|
TB = class(TA)
|
|
public
|
|
procedure A(X: boolean = true); override;
|
|
end;
|
|
|
|
procedure TB.A(X: boolean = true);
|
|
begin
|
|
writeln('hi');
|
|
end;
|
|
|
|
var
|
|
B: TB;
|
|
begin
|
|
B := TB.Create;
|
|
B.A;
|
|
B.Free;
|
|
end.
|