test: add scaled tests

---
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: aayush0325

lib/node_modules/@stdlib/lapack/base/dlatrs/lib/base.js

@@ -319,11 +319,11 @@ function dlatrs( uplo, trans, diag, normin, N, A, strideA1, strideA2, offsetA, X
 
 			for ( j = jfirst; (jinc > 0) ? j <= jlast : j >= jlast; j += jinc ) {
 				xj = abs( X[ ix ] );
+				GOTO = false;
 				if ( diag === 'non-unit' ) {
 					tjjs = A[ ia ] * tscal;
 				} else {
 					tjjs = tscal;
-					GOTO = false;
 					if ( tscal === 1.0 ) {
 						GOTO = true;
 					}

lib/node_modules/@stdlib/lapack/base/dlatrs/test/fixtures/scaled_non_unit_no_trans_lower_col_major.json

@@ -0,0 +1,34 @@
+{
+  "order": "column-major",
+
+  "uplo": "lower",
+  "trans": "no-transpose",
+  "diag": "non-unit",
+  "normin": "no",
+
+  "N": 3,
+  "LDA": 3,
+
+  "A": [ 1.0, 2.0, 3.0, 0.0, 0.1, 4.0, 0.0, 0.0, 0.01 ],
+  "strideA1": 1,
+  "strideA2": 3,
+  "offsetA": 0,
+
+  "A_mat": [
+    [  1.0, 0.0,  0.0 ],
+    [  2.0, 0.1,  0.0 ],
+    [  3.0, 4.0,  0.01 ]
+  ],
+
+  "X": [ 1.0e308, 1.0e308, 1.0e308 ],
+  "strideX": 1,
+  "offsetX": 0,
+
+  "CNORM": [ 0.0, 0.0, 0.0 ],
+  "strideCNORM": 1,
+  "offsetCNORM": 0,
+
+  "expectedX": [ 0.5, -5.0, 1900.0 ],
+  "expectedCNORM": [ 5.0, 4.0, 0.0 ],
+  "scale": 4.9999999999999995e-309
+}

lib/node_modules/@stdlib/lapack/base/dlatrs/test/fixtures/scaled_non_unit_no_trans_lower_row_major.json

@@ -0,0 +1,34 @@
+{
+  "order": "row-major",
+
+  "uplo": "lower",
+  "trans": "no-transpose",
+  "diag": "non-unit",
+  "normin": "no",
+
+  "N": 3,
+  "LDA": 3,
+
+  "A": [ 1.0, 0.0, 0.0, 2.0, 0.1, 0.0, 3.0, 4.0, 0.01 ],
+  "strideA1": 3,
+  "strideA2": 1,
+  "offsetA": 0,
+
+  "A_mat": [
+    [  1.0, 0.0,  0.0 ],
+    [  2.0, 0.1,  0.0 ],
+    [  3.0, 4.0,  0.01 ]
+  ],
+
+  "X": [ 1.0e308, 1.0e308, 1.0e308 ],
+  "strideX": 1,
+  "offsetX": 0,
+
+  "CNORM": [ 0.0, 0.0, 0.0 ],
+  "strideCNORM": 1,
+  "offsetCNORM": 0,
+
+  "expectedX": [ 0.5, -5.0, 1900.0 ],
+  "expectedCNORM": [ 5.0, 4.0, 0.0 ],
+  "scale": 4.9999999999999995e-309
+}

lib/node_modules/@stdlib/lapack/base/dlatrs/test/test.dlatrs.js

@@ -49,6 +49,9 @@ var UNIT_TRANS_LOWER_COL_MAJOR = require( './fixtures/unit_trans_lower_col_major
 var UNIT_TRANS_UPPER_ROW_MAJOR = require( './fixtures/unit_trans_upper_row_major.json' );
 var UNIT_TRANS_UPPER_COL_MAJOR = require( './fixtures/unit_trans_upper_col_major.json' );
 
+var SCALED_NON_UNIT_NO_TRANS_LOWER_ROW_MAJOR = require( './fixtures/scaled_non_unit_no_trans_lower_row_major.json' );
+var SCALED_NON_UNIT_NO_TRANS_LOWER_COL_MAJOR = require( './fixtures/scaled_non_unit_no_trans_lower_col_major.json' );
+
 
 // TESTS //
 
@@ -763,3 +766,57 @@ tape( 'the function returns expected output for normal values (column-major) (up
 
 	t.end();
 });
+
+tape.only( 'the function returns expected output for large values (row-major) (lower triangular) (no-transpose) (non-unit)', function test( t ) {
+	var expectedCNORM;
+	var expectedX;
+	var scale;
+	var CNORM;
+	var data;
+	var A;
+	var X;
+
+	data = SCALED_NON_UNIT_NO_TRANS_LOWER_ROW_MAJOR;
+
+	A = new Float64Array( data.A );
+	CNORM = new Float64Array( data.CNORM );
+	X = new Float64Array( data.X );
+
+	expectedCNORM = new Float64Array( data.expectedCNORM );
+	expectedX = new Float64Array( data.expectedX );
+
+	scale = dlatrs( data.order, data.uplo, data.trans, data.diag, data.normin, data.N, A, data.LDA, X, CNORM );
+
+	t.strictEqual( scale, data.scale, 'returns expected value' );
+	t.deepEqual( X, expectedX, 'returns expected value' );
+	t.deepEqual( CNORM, expectedCNORM, 'returns expected value' );
+
+	t.end();
+});
+
+tape( 'the function returns expected output for large values (column-major) (lower triangular) (no-transpose) (non-unit)', function test( t ) {
+	var expectedCNORM;
+	var expectedX;
+	var scale;
+	var CNORM;
+	var data;
+	var A;
+	var X;
+
+	data = SCALED_NON_UNIT_NO_TRANS_LOWER_COL_MAJOR;
+
+	A = new Float64Array( data.A );
+	CNORM = new Float64Array( data.CNORM );
+	X = new Float64Array( data.X );
+
+	expectedCNORM = new Float64Array( data.expectedCNORM );
+	expectedX = new Float64Array( data.expectedX );
+
+	scale = dlatrs( data.order, data.uplo, data.trans, data.diag, data.normin, data.N, A, data.LDA, X, CNORM );
+
+	t.strictEqual( scale, data.scale, 'returns expected value' );
+	t.deepEqual( X, expectedX, 'returns expected value' );
+	t.deepEqual( CNORM, expectedCNORM, 'returns expected value' );
+
+	t.end();
+});