mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
19 lines
173 B
ObjectPascal
19 lines
173 B
ObjectPascal
{ %opt=-CO -Seh }
|
|
{ %norun }
|
|
program test;
|
|
|
|
procedure foo;
|
|
var
|
|
i: integer;
|
|
a: array of integer;
|
|
begin
|
|
a := NIL;
|
|
for i in a do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
foo;
|
|
end.
|