* Merging revisions r46368 from trunk:

    ------------------------------------------------------------------------
    r46368 | michael | 2020-08-12 12:56:49 +0200 (Wed, 12 Aug 2020) | 1 line
    
    Fix placeholder in format constant
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46626 -

packages/fcl-base/src/fpexprpars.pp

@@ -896,7 +896,7 @@ Resourcestring
   SErrCaseLabelNotAConst = 'Case label %d "%s" is not a constant expression';
   SErrCaseLabelType = 'Case label %d "%s" needs type %s, but has type %s';
   SErrCaseValueType = 'Case value %d "%s" needs type %s, but has type %s';
-  SErrDivisionByZero = '%d division by zero';
+  SErrDivisionByZero = '%s division by zero';
 
 { ---------------------------------------------------------------------
   Auxiliary functions