FPC internal compiler routine: frac_real
Source position: compproc.inc line 235
function fpc_frac_real(
d: ValReal
):ValReal;