mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
12 lines
100 B
ObjectPascal
12 lines
100 B
ObjectPascal
{ %opt=-vw -Sew }
|
|
{ %fail }
|
|
|
|
function f: ansistring;
|
|
begin
|
|
if f <> '' then;
|
|
end;
|
|
|
|
begin
|
|
f;
|
|
end.
|