mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 21:29:05 +02:00
16 lines
155 B
ObjectPascal
16 lines
155 B
ObjectPascal
{ %fail }
|
|
|
|
{ from GPC testsuite }
|
|
|
|
program fjf569i;
|
|
|
|
procedure foo (const a: String);
|
|
begin
|
|
WriteStr (a, '') { WRONG }
|
|
end;
|
|
|
|
begin
|
|
WriteLn ('')
|
|
end.
|
|
|