Procedure test;
{compile with -Og to show bug}

Var a: Array[1..4000000] of longint;
Begin
End;

Begin
End.