paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in sprintf of extended

Browse Source 
git-svn-id: trunk@2950 -
This commit is contained in:
Jonas Maebe 2006-03-17 22:35:04 +00:00
parent 4db6e1ddb8
commit 4a6848269e
1 changed files with 1 additions and 1 deletions

2
tests/test/cg/tprintf.pp
View File

@ -93,7 +93,7 @@ begin
{$ifdef FPC_HAS_TYPE_EXTENDED}
printf('Text containing long double: %Lf'+lineending,[e]);
sprintf(p,'Text containing long double: %f'+lineending,[e]);
sprintf(p,'Text containing long double: %Lf'+lineending,[e]);
if strpos(p,'long double: 74.7')=nil then
begin
writeln('The output of sprintf for long double is wrong:',p);