mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 20:49:49 +02:00
12 lines
194 B
ObjectPascal
12 lines
194 B
ObjectPascal
{ %fail }
|
|
procedure p;
|
|
var
|
|
{ generate big local data structures which overflow the stack for sure }
|
|
a1,a2,a3,a4,a5 : array[0..high(sizeint) div 4] of byte;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|