refactor: Common.Merge

Author: IgorErin

src/GraphBLAS-sharp.Backend/Common/Merge.fs

@@ -53,6 +53,7 @@ module Merge =
                 let beginIdx = beginIdxLocal
                 let endIdx = endIdxLocal
                 let firstLocalLength = endIdx - beginIdx
+
                 let mutable x = workGroupSize - firstLocalLength
 
                 if endIdx = firstSide then
@@ -68,7 +69,7 @@ module Merge =
                     localIndices.[lid] <- firstValues.[beginIdx + lid]
 
                 if lid < secondLocalLength then
-                    localIndices.[firstLocalLength + lid] <- firstValues.[gid - beginIdx]
+                    localIndices.[firstLocalLength + lid] <- secondValues.[gid - beginIdx]
 
                 barrierLocal ()
 

tests/GraphBLAS-sharp.Tests/Common/Merge.fs

@@ -10,9 +10,7 @@ let context = Context.defaultContext.ClContext
 
 let processor = Context.defaultContext.Queue
 
-let config =
-    { Utils.defaultConfig with
-          endSize = 10 }
+let config = { Utils.defaultConfig with endSize = 10000000 }
 
 let makeTest isEqual testFun (leftArray: 'a []) (rightArray: 'a []) =
     if leftArray.Length > 0 && rightArray.Length > 0 then