{ %fail }

{$mode objfpc}

procedure test(out x: longint = 0);
begin
end;

var
  l: longint;
begin
  test(l);
end.