THUNDERX2T99: Fix bug in SNRM2

This commit is contained in:
Ashwin Sekhar T K 2017-02-07 02:14:33 -08:00
parent f63deae9de
commit 8e89668f62
1 changed files with 1 additions and 1 deletions

View File

@ -243,7 +243,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
ptr = (double *)result;
for (i = 0; i < nthreads; i++) {
nrm2_double = nrm2_double + (*ptr) * (*ptr);
nrm2_double = nrm2_double + (*ptr);
ptr = (double *)(((char *)ptr) + sizeof(double) * 2);
}
}