mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
c855c7a0aa
* warn if such an expression is encountered * don't optimize the expression if it has side effects, resolves #17838 git-svn-id: trunk@18275 -
31 lines
369 B
ObjectPascal
31 lines
369 B
ObjectPascal
{$mode objfpc}
|
|
program calltest;
|
|
var
|
|
count: integer;
|
|
b : byte;
|
|
procedure nop;
|
|
begin
|
|
end;
|
|
function f():cardinal;
|
|
begin
|
|
inc(count);
|
|
result:=count;
|
|
end;
|
|
begin
|
|
count:=0;
|
|
b:=1;
|
|
if f()=1 then
|
|
nop;
|
|
if f()=-1 then
|
|
nop;
|
|
if f()=2 then
|
|
nop;
|
|
if f()<>-1 then
|
|
nop;
|
|
if b<-1 then
|
|
nop;
|
|
if count<>4 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|