mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 01:39:35 +01:00
10 lines
108 B
ObjectPascal
10 lines
108 B
ObjectPascal
Procedure test;
|
|
{compile with -Og to show bug}
|
|
|
|
Var a: Array[1..4000000] of longint;
|
|
Begin
|
|
End;
|
|
|
|
Begin
|
|
End.
|