mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 05:48:34 +02:00
20 lines
268 B
ObjectPascal
20 lines
268 B
ObjectPascal
{ %OPT=-O3 -Oodeadstore }
|
|
|
|
{$mode objfpc}
|
|
function ChooseMinus10: SizeInt;
|
|
var
|
|
chosen: SizeInt;
|
|
begin
|
|
chosen := -10;
|
|
repeat
|
|
if random(1) = 0 then else break;
|
|
exit(chosen);
|
|
until false;
|
|
result := -20;
|
|
end;
|
|
|
|
begin
|
|
if ChooseMinus10<>-10 then
|
|
halt(1);
|
|
end.
|