fpcsrc/tests/webtbs/tw9107.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{%opt=-OoSTACKFRAME}

procedure Proc;
var
  s:shortstring;
begin
  s:='test';
  if Copy(s,1,4)<>'test' then begin
    writeln('Test failed!');
    Halt(1);
  end
  else
    writeln('Test OK.');
end;

begin
  Proc;
end.