fpc/tw25121.pp at fixes_3_2 - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 19:59:31 +02:00

Jonas Maebe 8cfe7e0a0c * when creating a realconstn, cast the value to the specified type

(mantis #25121)
   o note that this means that single_const1/single_const2 will now be rounded
     to single, instead of staying the at maximum precision
   o fixed FahrenheitToCelcius() to handle this change correctly

git-svn-id: trunk@37911 -

2018-01-04 20:51:36 +00:00

9 lines

242 B

ObjectPascal

Raw Permalink Blame History

 begin
   if not(single(144115188075855877) = single(144115188075855872)) then
     halt(1);
   if not(single(1 / 3.0) = single(0.33333333)) then
     halt(2);
   if not(single(92233720368547758) = single(92233720000000000)) then
     halt(3);
 end.