fpcsrc/tests/test/twrstr2.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ from GPC test suite }

Program TruncSt3;

Var
  Foo: String [3];

begin
  WriteStr (Foo, 'abcdef');
  if Foo <> 'abc' then
    halt(1);
end.