mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
20 lines
317 B
ObjectPascal
20 lines
317 B
ObjectPascal
{ %opt=-Ct -Cs7340032 }
|
|
{ %target=win32,win64,linux,freebsd,darwin,openbsd }
|
|
program project1;
|
|
|
|
{$mode objfpc}
|
|
|
|
function BigStack: Integer;
|
|
var
|
|
buf: array[0..6*1024*1014] of Byte;
|
|
begin
|
|
buf[0] := 1;
|
|
buf[High(buf)] := 2;
|
|
Result := buf[0] + buf[High(buf)];
|
|
end;
|
|
|
|
begin
|
|
if BigStack <> 3 then
|
|
Halt(1);
|
|
end.
|