Equality is 0

[forki]

This is weird. I believe this needs to be a zero - in symmetry with the float case.

But I tried to trigger the bug and it could not repro.

[dsyme]

Thanks for the fix. To repro you have to open NonStructuralComparison (a very rarely used way of turning off structural comparison).

>  let f() = printfn "hello"; 0.0f * 0.0f;;
val f : unit -> float32

>  compare (f()) (f());;
hello
hello
val it : int = 1

[forki]

ok let me add a test

[forki]

done