THUNDERX2T99: Fix bug in SNRM2

kernel/arm64/snrm2_thunderx2t99.c

@@ -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);
 		}
 	}