mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 07:08:29 +02:00
19 lines
184 B
ObjectPascal
19 lines
184 B
ObjectPascal
{ %opt=-O3 }
|
|
var
|
|
i : longint;
|
|
|
|
function f : real;
|
|
begin
|
|
inc(i);
|
|
f:=2;
|
|
end;
|
|
|
|
begin
|
|
i:=0;
|
|
if f*f<>4 then
|
|
halt(1);
|
|
if i<>2 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|