paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* New test to catch stack overflow in compiler (#40010)

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-12-03 19:56:05 +00:00
parent f00a932cc6
commit f54917d600
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/webtbf/tw40010.pp Normal file
View File

@ -0,0 +1,13 @@
{ %FAIL }
program tw40010;
type
PA_Node = ^TA_Node;
TA_Node = array[0..3] of PA_Node;
var n1,n2:PA_Node;
begin
n2 := nil;
n1[3] := n2; { Should fail with a syntax error, not not cause a stack overflow }
end.