Refs #671. the return of i?max cannot larger than N.

2015-10-24 01:16:34 +08:00
parent 1ce054fcb3
commit 5a291606ad
1 changed files with 4 additions and 0 deletions
--- a/interface/imax.c
+++ b/interface/imax.c
@@ -136,6 +136,8 @@ blasint NAME(blasint *N, FLOAT *x, blasint *INCX){

  ret = (blasint)MAX_K(n, x, incx);

+  if(ret > n) ret=n;
+
  FUNCTION_PROFILE_END(COMPSIZE, n, 0);

  IDEBUG_END;
@@ -159,6 +161,8 @@ CBLAS_INDEX CNAME(blasint n, FLOAT *x, blasint incx){

  ret = MAX_K(n, x, incx);

+  if (ret > n) ret=n;
+
  if (ret) ret --;

  FUNCTION_PROFILE_END(COMPSIZE, n, 0);