paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:29:11 +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 var
val: Single; val: Single;
begin begin
val := nan; val := NaN;
if not(isnan(val)) then if not(isnan(val)) then
begin begin
writeln('error single 1'); writeln('error single 1');
halt(1); halt(1);
end; end;
val := infinity; val := Infinity;
if not(isinfinite(val)) then if not(isinfinite(val)) then
begin begin
writeln('error single 2'); writeln('error single 2');
@ -42,13 +42,13 @@ procedure DoTestDouble;
var var
val: Double; val: Double;
begin begin
val := nan; val := NaN;
if not(isnan(val)) then if not(isnan(val)) then
begin begin
writeln('error double 1'); writeln('error double 1');
halt(1); halt(1);
end; end;
val := infinity; val := Infinity;
if not(isinfinite(val)) then if not(isinfinite(val)) then
begin begin
writeln('error double 2'); writeln('error double 2');
@ -80,13 +80,13 @@ procedure DoTestExtended;
var var
val: Extended; val: Extended;
begin begin
val := nan; val := NaN;
if not(isnan(val)) then if not(isnan(val)) then
begin begin
writeln('error extended 1'); writeln('error extended 1');
halt(1); halt(1);
end; end;
val := infinity; val := Infinity;
if not(isinfinite(val)) then if not(isinfinite(val)) then
begin begin
writeln('error extended 2'); writeln('error extended 2');

2
tests/webtbs/tw4100.pp
View File

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