mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
14 lines
144 B
ObjectPascal
14 lines
144 B
ObjectPascal
{ %fail }
|
|
function f(s: string): string;
|
|
begin
|
|
f := '''' + s + '''';
|
|
end;
|
|
|
|
function f(s: string): integer;
|
|
begin
|
|
Val(s,f);
|
|
end;
|
|
|
|
begin
|
|
end.
|