J. David Bryan wrote :
Running your program on:
(i386-mingw32msvc) gpc version 20001107, based on 2.95.2 19991024 (release)
...produces "OK". You didn't mention your platform, but perhaps this is a function of the floating-point representation used internally, or perhaps this is a change in GPC from your version to mine.
My version is now : gpc version 20010331, based on 2.95.2 19991024 (release) My platform : Intel Pentium 120 + Windows 98.
The difference between us is probably due to the floating-point representation. On my machine, LongReal type is the Intel IEEE Double-Extended which has a size of 80 bits (stored in 96 bits). [<SizeOf(LongReal);> gives 12.] I guess it's different on your computer.
-- «Couperin»