[fpc-pascal] compare currency and double

2014-12-07 Thread Xiangrong Fang
Hi All, I have the following code: var val: Currency; res: Double; begin val := 2345.67; res := 1e300; if val >= res then WriteLn('val >=res') else WriteLn('val < res'); end; The program compile and runs correctly on Linux x64, and Win7 32bit, but failed (SIGFPE) on Win7 64bit. Can

Re: [fpc-pascal] compare currency and double

2014-12-07 Thread Jonas Maebe
On 07/12/14 15:44, Xiangrong Fang wrote: > I have the following code: > > var > val: Currency; > res: Double; > begin > val := 2345.67; > res := 1e300; > if val >= res then WriteLn('val >=res') > else WriteLn('val < res'); > end; > > The program compile and runs correctly on Linux x64