From: Guillaume Horel <guillaume.horel@gmail.com>
Date: Sun, 8 Sep 2019 02:06:27 +0000 (-0400)
Subject: bugfix
X-Git-Tag: upstream/0.3.21~30^2~86^2~4
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5997b6b491a7fb9b0184f4edfc1c76d16de3affa;p=platform%2Fupstream%2Fopenblas.git

bugfix
---

diff --git a/interface/lapack/ztrtrs.c b/interface/lapack/ztrtrs.c
index 4cd4230..0536fc5 100644
--- a/interface/lapack/ztrtrs.c
+++ b/interface/lapack/ztrtrs.c
@@ -150,11 +150,11 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
   if (args.nthreads == 1) {
 #endif
 
-      (trtrs_single[(uplo << 2) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
+      (trtrs_single[(uplo << 3) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
 
 #ifdef SMP
   } else {
-    (trtrs_parallel[(uplo << 2) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
+    (trtrs_parallel[(uplo << 3) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
   }
 #endif