blob: 27862899a1e56d18bc06dfb29aa271a5fb466ce0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
uses
Math;
begin
if not(isnan(nan)) then
begin
writeln('error 1');
halt(1);
end;
if not(isinfinite(infinity)) then
begin
writeln('error 2');
halt(1);
end;
if isnan(12341234) then
begin
writeln('error 3');
halt(1);
end;
if isinfinite(0) then
begin
writeln('error 4');
halt(1);
end;
if isinfinite(12341234) then
begin
writeln('error 5');
halt(1);
end;
end.
|
