mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 12:32:25 +02:00
aad3ce960a
default value (mantis #22343) * give an error when specifying an invalid default value (e.g. a floating point number for a longint parameter) git-svn-id: trunk@22021 -
13 lines
125 B
ObjectPascal
13 lines
125 B
ObjectPascal
{ %fail }
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE DELPHI}
|
|
{$ENDIF}
|
|
|
|
procedure TestProcedure(const l: longint = 1.234);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|