Browse Source

* fixed bug in sprintf of extended

git-svn-id: trunk@2950 -
Jonas Maebe 19 years ago
parent
commit
4a6848269e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/cg/tprintf.pp

+ 1 - 1
tests/test/cg/tprintf.pp

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