fpc/tests/webtbf/tw19434.pp
Jonas Maebe 50659b7e7f * give an error if a routine definition defines default values for
parameters that do not appear in forward/interface definitions
    (mantis #19434)
  * added test for #17136 already works

git-svn-id: trunk@21524 -
2012-06-07 22:36:39 +00:00

19 lines
275 B
ObjectPascal

{ %fail }
unit tw19434;
{$mode delphi}
interface
function PostMessage2MainWnd(Msg: cardinal; wParam: longint;
lParam: longint): boolean;
implementation
function PostMessage2MainWnd(Msg: cardinal; wParam: longint = 0;
lParam: longint = 0): boolean;
begin
end;
end.