paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 21:49:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapted for systems with less max fpu precision than i386

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-11 17:12:15 +00:00
parent 8bd6d64c35
commit a65af80143
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/test/cg/tstr.pp
View File

@ -66,7 +66,12 @@ begin
f := -1.12345; f := -1.12345;
{$IFOPT E-} {$IFOPT E-}
str(f,s); str(f,s);
check('-1.123450000000000E+000'); if sizeof(f) = 10 then
check('-1.123450000000000E+000')
else if sizeof(f) = 8 then
check('-1.12345000000000E+000')
else
check('error, not yet implemented!!!!');
{$endif} {$endif}
{ the number of exponents depends on the maaping of the real type } { the number of exponents depends on the maaping of the real type }
if sizeof(real) = 8 then if sizeof(real) = 8 then
@ -244,7 +249,12 @@ begin
f := -1.12345; f := -1.12345;
{$IFOPT E-} {$IFOPT E-}
str(f,s); str(f,s);
check('-1.123450000000000E+000'); if sizeof(f) = 10 then
check('-1.123450000000000E+000')
else if sizeof(f) = 8 then
check('-1.12345000000000E+000')
else
check('error, not yet implemented!!!!');
{$endif} {$endif}
{ the number of exponents depends on the maaping of the real type } { the number of exponents depends on the maaping of the real type }
if sizeof(real) = 8 then if sizeof(real) = 8 then
@ -423,7 +433,12 @@ begin
f := -1.12345; f := -1.12345;
{$IFOPT E-} {$IFOPT E-}
str(f,s); str(f,s);
check('-1.123450000000000E+000'); if sizeof(f) = 10 then
check('-1.123450000000000E+000')
else if sizeof(f) = 8 then
check('-1.12345000000000E+000')
else
check('error, not yet implemented!!!!');
{$endif} {$endif}
{ the number of exponents depends on the maaping of the real type } { the number of exponents depends on the maaping of the real type }
if sizeof(real) = 8 then if sizeof(real) = 8 then