mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 01:09:35 +02:00
13 lines
153 B
ObjectPascal
13 lines
153 B
ObjectPascal
program testnan;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses math;
|
|
var d: double;
|
|
temp: Boolean;
|
|
begin
|
|
d := NaN;
|
|
temp := IsNan(d) or (d = 0);
|
|
writeln(temp);
|
|
end.
|