FPC compiler internal procedure index: sqr (real)
Source position: innr.inc line 87
const fpc_in_sqr_real = 128;