mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 17:59:37 +02:00
25 lines
236 B
ObjectPascal
25 lines
236 B
ObjectPascal
Program Test;
|
|
{$X-}
|
|
|
|
Function TestFunc : Boolean;
|
|
var b : Boolean;
|
|
begin
|
|
TestFunc := True;
|
|
b := True;
|
|
if b then
|
|
begin
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
writeln(3 xor 1);
|
|
if TestFunc then
|
|
begin
|
|
writeln('Yo');
|
|
end;
|
|
end.
|
|
|
|
|
|
|