Merge pull request #3930 from sergei-lewis/dot-kernel-early-bail

dot.c early bail fix
This commit is contained in:
Martin Kroeker 2023-03-02 16:46:25 +01:00 committed by GitHub
commit f616c86404
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions

View File

@ -43,7 +43,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
FLOAT dot = 0.0 ;
#endif
if ( n < 0 ) return(dot);
if ( n < 1 ) return(dot);
if ( (inc_x == 1) && (inc_y == 1) )
{

View File

@ -46,7 +46,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
BLASLONG ix=0,iy=0;
double dot = 0.0 ;
if ( n < 0 ) return(dot);
if ( n < 1 ) return(dot);
while(i < n)
{