mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 01:47:59 +02:00
e24449bcfd
as this might result in some nodes not being executed, like temp. create nodes with init. code, see e.g. issue #34653, resolves #34653 git-svn-id: trunk@40934 -
23 lines
381 B
ObjectPascal
23 lines
381 B
ObjectPascal
{ %OPT=-O2 }
|
|
var d: LongInt;
|
|
begin
|
|
WriteLn;
|
|
|
|
d := 828;
|
|
if ((d mod 2) = 0) xor ((d < 0) and ((d mod 3) = 0)) then
|
|
WriteLn('YES')
|
|
else
|
|
begin
|
|
WriteLn('NO');
|
|
halt(1);
|
|
end;
|
|
|
|
if ((d mod 2) = 0) xor ((d < 0) and ((d mod 3) = 0)) then
|
|
WriteLn('YES')
|
|
else
|
|
begin
|
|
WriteLn('NO');
|
|
halt(1);
|
|
end;
|
|
end.
|