{ %fail }

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}

procedure TestProcedure(const l: longint = 1.234);
begin
end;

begin
end.