FPC internal compiler routine: pi_real
Source position: compproc.inc line 238
function fpc_pi_real: ValReal;