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

* use $E switch to determine tests

Browse Source
This commit is contained in:
carl 2002-10-29 20:43:11 +00:00
parent 1a1686620e
commit 061b179457
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,7 +64,7 @@ begin
{ for more in-depth tests of str_real, see ../tstreal[1,2].pp }
f := -1.12345;
{$ifndef FPU_EMULATION}
{$IFOPT E-}
str(f,s);
check('-1.123450000000000E+000');
{$endif}
@ -242,7 +242,7 @@ begin
{ for more in-depth tests of str_real, see ../tstreal[1,2].pp }
f := -1.12345;
{$ifndef FPU_EMULATION}
{$IFOPT E-}
str(f,s);
check('-1.123450000000000E+000');
{$endif}
@ -421,7 +421,7 @@ begin
{ for more in-depth tests of str_real, see ../tstreal[1,2].pp }
f := -1.12345;
{$ifndef FPU_EMULATION}
{$IFOPT E-}
str(f,s);
check('-1.123450000000000E+000');
{$endif}