mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:07:56 +02:00
12 lines
161 B
ObjectPascal
12 lines
161 B
ObjectPascal
{ %OPT=-O1 }
|
|
program tw40643;
|
|
var
|
|
a: integer = 1;
|
|
b: integer = 1;
|
|
begin
|
|
if (a < 1) or ((a = 1) and (a = b)) then Exit;
|
|
|
|
WriteLn('Fail');
|
|
Halt(1);
|
|
end.
|