mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
15 lines
187 B
ObjectPascal
15 lines
187 B
ObjectPascal
program project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Math,SysUtils;
|
|
|
|
begin
|
|
if FormatFloat('0.#',Nan)<>'NaN' then
|
|
begin
|
|
WriteLn(FormatFloat('0.#',Nan));
|
|
halt(1);
|
|
end;
|
|
end.
|