mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
9 lines
92 B
ObjectPascal
9 lines
92 B
ObjectPascal
function DoTest: double; safecall;
|
|
begin
|
|
DoTest:=1.0;
|
|
end;
|
|
|
|
begin
|
|
writeln(DoTest);
|
|
end.
|