paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 08:42:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for extended = double cpu's

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-02 20:29:25 +00:00
parent ac931f6846
commit 6f17e37fe4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/webtbs/tw3533.pp
View File

@ -16,13 +16,13 @@ begin
end; end;
begin begin
tc:=0;t0:=20; tc:=0;t0:=20;
str(theta(20),s1); str(theta(20):0:6,s1);
str(theta(2),s2); str(theta(2):0:6,s2);
str(theta(20)-theta(2),s3); str((theta(20)-theta(2)):0:6,s3);
writeln(s1,' ',s2,' ',s3); writeln(s1,' ',s2,' ',s3);
if (s1<>' 1.000000000000000E+000') or if (s1<>'1.000000') or
(s2<>' 1.000000000000000E-001') or (s2<>'0.100000') or
(s3<>' 9.000000000000000E-001') then (s3<>'0.900000') then
halt(1); halt(1);
end; end;
begin begin