mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-24 13:58:38 +02:00
20 lines
198 B
ObjectPascal
20 lines
198 B
ObjectPascal
{ %opt=-Sew }
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
function A: boolean;
|
|
|
|
procedure CheckResult;
|
|
begin
|
|
if not Result then writeln('Oha');
|
|
end;
|
|
|
|
begin
|
|
Result:=false;
|
|
CheckResult;
|
|
end;
|
|
|
|
begin
|
|
A;
|
|
end.
|