(Free42) roundoff for complex SQRT

[Werner]

Resurrecting this old thread ...
When X = 0+iB, SQRT(X) should have equal real and imaginary parts (apart from the sign).
But that is (still) not the case.
The 48G algorithm I posted gives the correct result - in the 48, with its 3 extra digits, but not in Free42.
Example:

-1E-12
SQRT
SQRT
COMPLEX
-

equals -1E-37, exactly what you get when you follow the 48G algorithm.

Cheers, Werner