address @mgates' suggestion: "I tend to reset pointers to NULL after freeing them, to avoid any possible confusion."

Author: langou

LAPACKE/src/lapacke_cgesvdq_work.c

@@ -172,11 +172,11 @@ lapack_int API_SUFFIX(LAPACKE_cgesvdq_work)( int matrix_layout, char joba, char
         }
 
         /* Release memory and exit */
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( v_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( v_t ); v_t = NULL; }
 exit_level_2:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( u_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( u_t ); u_t = NULL; }
 exit_level_1:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( a_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( a_t ); a_t = NULL; }
 exit_level_0:
         if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) {
             API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_cgesvdq_work", info );

LAPACKE/src/lapacke_dgesvdq_work.c

@@ -174,11 +174,11 @@ lapack_int API_SUFFIX(LAPACKE_dgesvdq_work)( int matrix_layout, char joba, char
         }
 
         /* Release memory and exit */
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( v_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( v_t ); v_t = NULL; }
 exit_level_2:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( u_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( u_t ); u_t = NULL; }
 exit_level_1:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( a_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( a_t ); a_t = NULL; }
 exit_level_0:
         if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) {
             API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_dgesvdq_work", info );

LAPACKE/src/lapacke_sgesvdq_work.c

@@ -174,11 +174,11 @@ lapack_int API_SUFFIX(LAPACKE_sgesvdq_work)( int matrix_layout, char joba, char
         }
 
         /* Release memory and exit */
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( v_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( v_t ); v_t = NULL; }
 exit_level_2:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( u_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( u_t ); u_t = NULL; }
 exit_level_1:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( a_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( a_t ); a_t = NULL; }
 exit_level_0:
         if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) {
             API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_sgesvdq_work", info );

LAPACKE/src/lapacke_zgesvdq_work.c

@@ -172,11 +172,11 @@ lapack_int API_SUFFIX(LAPACKE_zgesvdq_work)( int matrix_layout, char joba, char
         }
 
         /* Release memory and exit */
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( v_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( v_t ); v_t = NULL; }
 exit_level_2:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( u_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( u_t ); u_t = NULL; }
 exit_level_1:
-        if ( ( m > 0 ) && ( n > 0 ) ) LAPACKE_free( a_t );
+        if ( ( m > 0 ) && ( n > 0 ) ) { LAPACKE_free( a_t ); a_t = NULL; }
 exit_level_0:
         if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) {
             API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_zgesvdq_work", info );