fix: update implementation to preserve signed zeros

---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: passed
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: passed
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: kgryte

lib/node_modules/@stdlib/blas/ext/base/gsumkbn/lib/accessors.js

@@ -58,6 +58,7 @@ function gsumkbn( N, x, strideX, offsetX ) {
 	var xbuf;
 	var get;
 	var sum;
+	var flg;
 	var ix;
 	var v;
 	var t;
@@ -74,9 +75,27 @@ function gsumkbn( N, x, strideX, offsetX ) {
 	if ( strideX === 0 ) {
 		return N * get( xbuf, ix );
 	}
-	sum = 0.0;
+	v = get( xbuf, ix );
+	sum = v;
+
+	// In order to preserve the sign of zero which can be lost during compensated summation below, find the first non-zero element...
+	if ( sum === 0.0 ) {
+		for ( i = 1; i < N; i++ ) {
+			v = get( xbuf, ix );
+			if ( v !== 0.0 ) {
+				flg = true;
+				break;
+			}
+			sum += v;
+			ix += strideX;
+		}
+	} else {
+		flg = true;
+		ix += strideX;
+		i = 1;
+	}
 	c = 0.0;
-	for ( i = 0; i < N; i++ ) {
+	for ( ; i < N; i++ ) {
 		v = get( xbuf, ix );
 		t = sum + v;
 		if ( abs( sum ) >= abs( v ) ) {
@@ -87,7 +106,7 @@ function gsumkbn( N, x, strideX, offsetX ) {
 		sum = t;
 		ix += strideX;
 	}
-	return sum + c;
+	return ( flg ) ? sum+c : sum;
 }
 
 

lib/node_modules/@stdlib/blas/ext/base/gsumkbn/lib/ndarray.js

@@ -52,6 +52,7 @@ var accessors = require( './accessors.js' );
 */
 function gsumkbn( N, x, strideX, offsetX ) {
 	var sum;
+	var flg;
 	var ix;
 	var o;
 	var v;
@@ -70,9 +71,27 @@ function gsumkbn( N, x, strideX, offsetX ) {
 	if ( strideX === 0 ) {
 		return N * x[ ix ];
 	}
-	sum = 0.0;
+	v = x[ ix ];
+	sum = v;
+
+	// In order to preserve the sign of zero which can be lost during compensated summation below, find the first non-zero element...
+	if ( sum === 0.0 ) {
+		for ( i = 1; i < N; i++ ) {
+			v = x[ ix ];
+			if ( v !== 0.0 ) {
+				flg = true;
+				break;
+			}
+			sum += v;
+			ix += strideX;
+		}
+	} else {
+		flg = true;
+		ix += strideX;
+		i = 1;
+	}
 	c = 0.0;
-	for ( i = 0; i < N; i++ ) {
+	for ( ; i < N; i++ ) {
 		v = x[ ix ];
 		t = sum + v;
 		if ( abs( sum ) >= abs( v ) ) {
@@ -83,7 +102,7 @@ function gsumkbn( N, x, strideX, offsetX ) {
 		sum = t;
 		ix += strideX;
 	}
-	return sum + c;
+	return ( flg ) ? sum+c : sum;
 }
 
 

lib/node_modules/@stdlib/blas/ext/base/gsumkbn/test/test.ndarray.js

@@ -23,6 +23,7 @@
 var tape = require( 'tape' );
 var isnan = require( '@stdlib/math/base/assert/is-nan' );
 var isPositiveZero = require( '@stdlib/math/base/assert/is-positive-zero' );
+var isNegativeZero = require( '@stdlib/math/base/assert/is-negative-zero' );
 var toAccessorArray = require( '@stdlib/array/base/to-accessor-array' );
 var gsumkbn = require( './../lib/ndarray.js' );
 
@@ -94,14 +95,14 @@ tape( 'the function calculates the sum of all strided array elements (accessors)
 	t.end();
 });
 
-tape( 'the function does not preserve the sign of zero', function test( t ) {
+tape( 'the function preserves the sign of zero', function test( t ) {
 	var x;
 	var v;
 
 	x = [ -0.0, -0.0, -0.0 ];
 
 	v = gsumkbn( x.length, x, 1, 0 );
-	t.strictEqual( isPositiveZero( v ), true, 'returns expected value' );
+	t.strictEqual( isNegativeZero( v ), true, 'returns expected value' );
 
 	x = [ 0.0, -0.0, -0.0 ];
 
@@ -111,14 +112,14 @@ tape( 'the function does not preserve the sign of zero', function test( t ) {
 	t.end();
 });
 
-tape( 'the function does not preserve the sign of zero (accessors)', function test( t ) {
+tape( 'the function preserves the sign of zero (accessors)', function test( t ) {
 	var x;
 	var v;
 
 	x = toAccessorArray( [ -0.0, -0.0, -0.0 ] );
 
 	v = gsumkbn( x.length, x, 1, 0 );
-	t.strictEqual( isPositiveZero( v ), true, 'returns expected value' );
+	t.strictEqual( isNegativeZero( v ), true, 'returns expected value' );
 
 	x = toAccessorArray( [ 0.0, -0.0, -0.0 ] );