mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02: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.
|