mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 19:59:26 +02:00
125b9e79d7
causing crashes if strings with a maximum length < 255 were passed git-svn-id: trunk@13558 -
25 lines
225 B
ObjectPascal
25 lines
225 B
ObjectPascal
{ %opt=-gttt }
|
|
{$mode objfpc}
|
|
|
|
|
|
procedure get(out s: string);
|
|
begin
|
|
end;
|
|
|
|
procedure test;
|
|
var
|
|
s: string[1];
|
|
a,b: byte;
|
|
begin
|
|
a:=1;
|
|
b:=2;
|
|
get(s);
|
|
if (a<>1) or
|
|
(b<>2) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|