tests/webtbs/tw25349.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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.