paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 10:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* formatting

Browse Source
This commit is contained in:
florian 2024-12-24 16:27:10 +01:00
parent 7245902660
commit faae36afa1
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/units/math/tnaninf.pp
View File

@ -5,13 +5,13 @@ procedure DoTestSingle;
var
val: Single;
begin
val := nan;
val := NaN;
if not(isnan(val)) then
begin
writeln('error single 1');
halt(1);
end;
val := infinity;
val := Infinity;
if not(isinfinite(val)) then
begin
writeln('error single 2');
@ -42,13 +42,13 @@ procedure DoTestDouble;
var
val: Double;
begin
val := nan;
val := NaN;
if not(isnan(val)) then
begin
writeln('error double 1');
halt(1);
end;
val := infinity;
val := Infinity;
if not(isinfinite(val)) then
begin
writeln('error double 2');
@ -80,13 +80,13 @@ procedure DoTestExtended;
var
val: Extended;
begin
val := nan;
val := NaN;
if not(isnan(val)) then
begin
writeln('error extended 1');
halt(1);
end;
val := infinity;
val := Infinity;
if not(isinfinite(val)) then
begin
writeln('error extended 2');

2
tests/webtbs/tw4100.pp
View File

@ -20,5 +20,5 @@
writeln('test');
writeln(StrToFloat('1e7'));
writeln(Z);
end.
end.