Equality is 0 (#4493)

* Create a test that shows broken comparison on float32

* fix comparison of float32

Author: forki

src/fsharp/FSharp.Core/prim-types.fs

@@ -4167,7 +4167,7 @@ namespace Microsoft.FSharp.Core
                                     else (# "ceq" e1 e1 : int #)
                  when ^T : float32 = if   (# "clt" e1 e2 : bool #) then (-1)
                                      elif (# "cgt" e1 e2 : bool #) then (1)
-                                     elif (# "ceq" e1 e2 : bool #) then (1)
+                                     elif (# "ceq" e1 e2 : bool #) then (0)
                                      elif (# "ceq" e2 e2 : bool #) then (-1)
                                      else (# "ceq" e1 e1 : int #)
                  when ^T : char   = if (# "clt.un" e1 e2 : bool #) then (-1) else (# "cgt.un" e1 e2 : int #)

tests/FSharp.Core.UnitTests/FSharp.Core/PrimTypes.fs

@@ -816,3 +816,16 @@ type RangeTests() =
         if System.UIntPtr.Size >= 8 then RangeTestsHelpers.unsigned (System.UIntPtr System.UInt64.MinValue) (System.UIntPtr System.UInt64.MaxValue)
 
 
+open NonStructuralComparison
+
+
+[<TestFixture>]
+type NonStructuralComparisonTests() =
+
+    [<Test>]
+    member __.CompareFloat32() = // https://github.com/Microsoft/visualfsharp/pull/4493
+
+        let x = 32 |> float32
+        let y = 32 |> float32
+        let comparison = compare x y
+        Assert.AreEqual(0, comparison)