mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-18 03:41:34 +02:00
20 lines
253 B
ObjectPascal
20 lines
253 B
ObjectPascal
function Append : Boolean;
|
|
|
|
procedure DoAppend;
|
|
begin
|
|
Append := true;
|
|
end;
|
|
|
|
begin
|
|
Append:=False;
|
|
DoAppend;
|
|
end;
|
|
|
|
begin
|
|
If not Append then
|
|
begin
|
|
Writeln('TBS0050 fails');
|
|
Halt(1);
|
|
end;
|
|
end.
|