move declaration of sca to really keep the compiler from throwing it out (for now)

This commit is contained in:
Martin Kroeker 2023-04-15 12:02:39 +02:00 committed by GitHub
parent f096a339e4
commit 8be68fa7f4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 2 deletions

View File

@ -344,7 +344,6 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT dummy_alpha[2];
#endif
FLOAT ssq, scale;
volatile FLOAT sca;
if (n <= 0 || inc_x <= 0) return 0.0;
@ -405,7 +404,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
#else
nrm2_compute(n, x, inc_x, &ssq, &scale);
#endif
sca = fabs(scale);
volatile FLOAT sca = fabs(scale);
if (sca < DBL_MIN) return 0.;
ssq = sqrt(ssq) * scale;