mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 08:49:33 +02:00
14 lines
221 B
ObjectPascal
14 lines
221 B
ObjectPascal
{ %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.
|