--- rpl/src/formateur.c 2013/02/26 19:56:12 1.54 +++ rpl/src/formateur.c 2013/03/16 11:31:41 1.56 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.12 + RPL/2 (R) version 4.1.13 Copyright (C) 1989-2013 Dr. BERTRAND Joël This file is part of RPL/2. @@ -3522,7 +3522,15 @@ formateur_reel(struct_processus *s_etat_ } else if (tampon_entier < ((integer8) 0)) { - exposant = (long) floor(log10(-tampon_entier)); + if (tampon_entier != INT64_MIN) + { + exposant = (long) floor(log10(-tampon_entier)); + } + else + { + tampon_reel = (real8) tampon_entier; + exposant = (long) floor(log10(-tampon_reel)); + } } else {