mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 14:31:59 +02:00
24 lines
270 B
ObjectPascal
24 lines
270 B
ObjectPascal
procedure trashstack;
|
|
var
|
|
a: array[0..high(word)] of byte;
|
|
begin
|
|
fillchar(a,sizeof(a),$ff);
|
|
end;
|
|
|
|
procedure test;
|
|
var
|
|
s1,s2,s3,s4: ansistring;
|
|
begin
|
|
s2:='';
|
|
s3:='';
|
|
s4:='';
|
|
s1:=s2+s3+s4;
|
|
if s1<>'' then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
trashstack;
|
|
test;
|
|
end.
|