"Source: Text/Basics/FldRe.text";
"Line: 1003";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Basics/FldRe.text, line: 1003
// Example: H26E5 ()
print "Example: H26E5";
ei := GetEchoInput();
SetEchoInput(true);
C := ComplexField(30);
x := -One(C);
Imaginary(x); // imaginary part is negative zero
Arg(x); // approximately negative pi as Arg
y := C!-1; // coerce, so imag part is positive zero
Imaginary(y); // positive zero
Arg(y); // approximately positive pi as Arg
assert x eq y; // note that x and y are indeed equal!
SetEchoInput(ei);
