Confirmed, if you usee -Aas and -al you will see that TEST is just .quad -10 which is wrong of course... Using -10.0 fixes the bug for now if you really need this correct fast.
It would be nice if you could submit a bug report. Pierre Muller > -----Message d'origine----- > De : fpc-pascal-boun...@lists.freepascal.org [mailto:fpc-pascal- > boun...@lists.freepascal.org] De la part de LacaK > Envoyé : vendredi 30 mars 2012 14:09 > À : FPC-Pascal users discussions > Objet : [fpc-pascal] Win64 and currency > > Hi *, > I encounter strange thing under FPC 2.7.1 and Win64 target. > Can anybody test this program: > ======================== > const > test: array[0..0] of currency = (-10); > var > c:currency; > > begin > c := -10; > writeln(c); > writeln(test[0]); > readln; > end. > > ======================== > Results: > -1.000000000000000000E+01 > -1.000000000000000000E-03 > > Thanks > -Laco. > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
