mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:08:06 +02:00
6d6a45c034
* do not convert succ/pred into add/sub nodes if nf_internal is set git-svn-id: trunk@34896 -
14 lines
145 B
ObjectPascal
14 lines
145 B
ObjectPascal
{$OVERFLOWCHECKS+}
|
|
{$mode objfpc}
|
|
program project1;
|
|
|
|
var
|
|
c: Cardinal;
|
|
i: Integer;
|
|
|
|
begin
|
|
i := 1;
|
|
for c := 0 to i do
|
|
WriteLn(i);
|
|
end.
|