FPC internal compiler routine: sqr_real
Source position: compproc.inc line 240
function fpc_sqr_real(
d: ValReal
):ValReal;