Index: LAPACKE/src/lapacke_dlantr_work.c
===================================================================
--- LAPACKE/src/lapacke_dlantr_work.c	(révision 1501)
+++ LAPACKE/src/lapacke_dlantr_work.c	(copie de travail)
@@ -34,14 +34,14 @@
 #include "lapacke_utils.h"
 
 double LAPACKE_dlantr_work( int matrix_layout, char norm, char uplo,
-                                char diag, lapack_int m, lapack_int n,
-                                const double* a, lapack_int lda, double* work )
+                            char diag, lapack_int m, lapack_int n,
+                            const double* a, lapack_int lda, double* work )
 {
     lapack_int info = 0;
 	double res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
-        LAPACK_dlantr( &norm, &uplo, &diag, &m, &n, a, &lda, work );
+        res = LAPACK_dlantr( &norm, &uplo, &diag, &m, &n, a, &lda, work );
         if( info < 0 ) {
             info = info - 1;
         }
Index: LAPACKE/src/lapacke_slantr_work.c
===================================================================
--- LAPACKE/src/lapacke_slantr_work.c	(révision 1501)
+++ LAPACKE/src/lapacke_slantr_work.c	(copie de travail)
@@ -41,7 +41,7 @@
     float res = 0.;
     if( matrix_layout == LAPACK_COL_MAJOR ) {
         /* Call LAPACK function and adjust info */
-        LAPACK_slantr( &norm, &uplo, &diag, &m, &n, a, &lda, work );
+        res = LAPACK_slantr( &norm, &uplo, &diag, &m, &n, a, &lda, work );
         if( info < 0 ) {
             info = info - 1;
         }
