Explorar el Código

* fixed bug in sprintf of extended

git-svn-id: trunk@2950 -
Jonas Maebe hace 19 años
padre
commit
4a6848269e
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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}
   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);