From: julie <julielangou@users.noreply.github.com>
Date: Wed, 6 May 2015 04:54:45 +0000 (+0000)
Subject: Applying patch provided by Julien Schueller (Phimeca) on March 20th 2015 via Lapack... 
X-Git-Tag: submit/tizen/20180313.231549~369
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6eff56f7e1ac1d65b85726164a3fa5d4f5a7f1d5;p=platform%2Fupstream%2Flapack.git

Applying patch provided by Julien Schueller (Phimeca) on March 20th 2015 via Lapack mailing list to fix some warnings
---

diff --git a/LAPACKE/example/example_DGELS_colmajor.c b/LAPACKE/example/example_DGELS_colmajor.c
index 7b0064c6..5d902edd 100644
--- a/LAPACKE/example/example_DGELS_colmajor.c
+++ b/LAPACKE/example/example_DGELS_colmajor.c
@@ -66,10 +66,9 @@
 int main (int argc, const char * argv[])
 {
    /* Locals */
-   double A[5][3] = {1,2,3,4,5,1,3,5,2,4,1,4,2,5,3};
-   double b[5][2] = {-10,12,14,16,18,-3,14,12,16,16};
+   double A[5][3] = {{1,2,3},{4,5,1},{3,5,2},{4,1,4},{2,5,3}};
+   double b[5][2] = {{-10,12},{14,16},{18,-3},{14,12},{16,16}};
    lapack_int info,m,n,lda,ldb,nrhs;
-   int i,j;
 
    /* Initialization */
    m = 5;
@@ -92,5 +91,5 @@ int main (int argc, const char * argv[])
    /* Print Solution */
    print_matrix_colmajor( "Solution", n, nrhs, *b, ldb );
    printf( "\n" );
-   exit( 0 );
+   exit( info );
 } /* End of LAPACKE_dgels Example */
diff --git a/LAPACKE/example/example_DGESV_colmajor.c b/LAPACKE/example/example_DGESV_colmajor.c
index be0432c0..65837405 100644
--- a/LAPACKE/example/example_DGESV_colmajor.c
+++ b/LAPACKE/example/example_DGESV_colmajor.c
@@ -44,9 +44,8 @@ int main(int argc, char **argv) {
         /* Locals */
         lapack_int n, nrhs, lda, ldb, info;
 		int i, j;
-		double normr, normb;
         /* Local arrays */
-		double *A, *b, *Acopy, *bcopy;
+		double *A, *b;
 		lapack_int *ipiv;
 		
         /* Default Value */
diff --git a/LAPACKE/example/example_DGESV_rowmajor.c b/LAPACKE/example/example_DGESV_rowmajor.c
index 4406733a..51442377 100644
--- a/LAPACKE/example/example_DGESV_rowmajor.c
+++ b/LAPACKE/example/example_DGESV_rowmajor.c
@@ -43,9 +43,8 @@ int main(int argc, char **argv) {
         /* Locals */
         lapack_int n, nrhs, lda, ldb, info;
 		int i, j;
-		double normr, normb;
         /* Local arrays */
-		double *A, *b, *Acopy, *bcopy;
+		double *A, *b;
 		lapack_int *ipiv;
 		
         /* Default Value */
diff --git a/LAPACKE/src/lapacke_ctpmqrt_work.c b/LAPACKE/src/lapacke_ctpmqrt_work.c
index 4a69f519..cbf62d8e 100644
--- a/LAPACKE/src/lapacke_ctpmqrt_work.c
+++ b/LAPACKE/src/lapacke_ctpmqrt_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ctpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_ctprfb_work.c b/LAPACKE/src/lapacke_ctprfb_work.c
index 8ae2d34f..3c4b5c9e 100644
--- a/LAPACKE/src/lapacke_ctprfb_work.c
+++ b/LAPACKE/src/lapacke_ctprfb_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ctprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_dlamch_work.c b/LAPACKE/src/lapacke_dlamch_work.c
index d2d7f86f..1af46054 100644
--- a/LAPACKE/src/lapacke_dlamch_work.c
+++ b/LAPACKE/src/lapacke_dlamch_work.c
@@ -35,8 +35,7 @@
 
 double LAPACKE_dlamch_work( char cmach )
 {
-    lapack_int info = 0;
-	double res;
+    double res;
     /* Call LAPACK function and adjust info */
     res = LAPACK_dlamch( &cmach );
     return res;
diff --git a/LAPACKE/src/lapacke_dtpmqrt_work.c b/LAPACKE/src/lapacke_dtpmqrt_work.c
index 6912c796..ed7db691 100644
--- a/LAPACKE/src/lapacke_dtpmqrt_work.c
+++ b/LAPACKE/src/lapacke_dtpmqrt_work.c
@@ -49,7 +49,6 @@ lapack_int LAPACKE_dtpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_dtprfb_work.c b/LAPACKE/src/lapacke_dtprfb_work.c
index 29fbfc4d..bbcde1c7 100644
--- a/LAPACKE/src/lapacke_dtprfb_work.c
+++ b/LAPACKE/src/lapacke_dtprfb_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_dtprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_slamch_work.c b/LAPACKE/src/lapacke_slamch_work.c
index ab4767a8..0332a190 100644
--- a/LAPACKE/src/lapacke_slamch_work.c
+++ b/LAPACKE/src/lapacke_slamch_work.c
@@ -35,8 +35,7 @@
 
 float LAPACKE_slamch_work( char cmach )
 {
-    lapack_int info = 0;
-	float res;
+    float res;
     /* Call LAPACK function and adjust info */
     res = LAPACK_slamch( &cmach );
     return res;
diff --git a/LAPACKE/src/lapacke_stpmqrt_work.c b/LAPACKE/src/lapacke_stpmqrt_work.c
index 1bf2f02b..ade43f4a 100644
--- a/LAPACKE/src/lapacke_stpmqrt_work.c
+++ b/LAPACKE/src/lapacke_stpmqrt_work.c
@@ -49,7 +49,6 @@ lapack_int LAPACKE_stpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_stprfb_work.c b/LAPACKE/src/lapacke_stprfb_work.c
index b03a5728..0bcb22f3 100644
--- a/LAPACKE/src/lapacke_stprfb_work.c
+++ b/LAPACKE/src/lapacke_stprfb_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_stprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_ztpmqrt_work.c b/LAPACKE/src/lapacke_ztpmqrt_work.c
index fa4cd346..ef16e354 100644
--- a/LAPACKE/src/lapacke_ztpmqrt_work.c
+++ b/LAPACKE/src/lapacke_ztpmqrt_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ztpmqrt_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);
diff --git a/LAPACKE/src/lapacke_ztprfb_work.c b/LAPACKE/src/lapacke_ztprfb_work.c
index 7d2282df..946c3dde 100644
--- a/LAPACKE/src/lapacke_ztprfb_work.c
+++ b/LAPACKE/src/lapacke_ztprfb_work.c
@@ -51,7 +51,6 @@ lapack_int LAPACKE_ztprfb_work( int matrix_layout, char side, char trans,
             info = info - 1;
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
-        lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k;
         lapack_int lda_t = MAX(1,k);
         lapack_int ldb_t = MAX(1,m);
         lapack_int ldt_t = MAX(1,ldt);