mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
17 lines
177 B
ObjectPascal
17 lines
177 B
ObjectPascal
program bug_StrPLCopy;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
var
|
|
Buf: array[0..10] of Char;
|
|
|
|
begin
|
|
Buf[0] := 'A';
|
|
StrPLCopy(Buf, '', 0);
|
|
if Buf[0]<>#0 then
|
|
halt(1);
|
|
end.
|