mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
18 lines
164 B
ObjectPascal
18 lines
164 B
ObjectPascal
{ %NORUN }
|
|
{ %EXPECTMSGS=5024 }
|
|
{ %OPT=-vh }
|
|
|
|
program tb0718;
|
|
|
|
{$warn 5024 off}
|
|
|
|
{$warn 5024 on}
|
|
|
|
procedure Test(aArg: LongInt);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
Test(42);
|
|
end.
|