testing: add check for the std api in the norm testing

testing/testing_zlange.c

@@ -123,6 +123,7 @@ testing_zlange_std( run_arg_list_t *args, int check )
     int             seedA     = run_arg_get_int( args, "seedA", random() );
 
     /* Descriptors */
+    double norm;
     CHAMELEON_Complex64_t *A;
 
     CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
@@ -135,14 +136,13 @@ testing_zlange_std( run_arg_list_t *args, int check )
 
     /* Calculates the norm */
     testing_start( &test_data );
-    CHAMELEON_zlange( norm_type, M, N, A, LDA ); 
+    norm = CHAMELEON_zlange( norm_type, M, N, A, LDA ); 
     test_data.hres = hres;
     testing_stop( &test_data, flops_zlange( norm_type, M, N ) );
 
     /* Checks the solution */
     if ( check ) {
-        // hres = check_znorm( args, ChamGeneral, norm_type, ChamUpperLower,
-        //                     ChamNonUnit, norm, descA );
+        hres = check_znorm_std( ChamGeneral, norm_type, ChamUpperLower, ChamNonUnit, norm, M, N, A, LDA );
     }
 
     free( A );

testing/testing_zlanhe.c

@@ -123,6 +123,7 @@ testing_zlanhe_std( run_arg_list_t *args, int check )
     double          bump      = testing_dalea();
 
     /* Descriptors */
+    double norm;
     CHAMELEON_Complex64_t *A;
 
     bump = run_arg_get_complex64( args, "bump", bump );
@@ -137,13 +138,13 @@ testing_zlanhe_std( run_arg_list_t *args, int check )
 
     /* Calculates the norm */
     testing_start( &test_data );
-    CHAMELEON_zlanhe( norm_type, uplo, N, A, LDA ); 
+    norm = CHAMELEON_zlanhe( norm_type, uplo, N, A, LDA ); 
     test_data.hres = hres;
     testing_stop( &test_data, flops_zlanhe( norm_type, N ) );
 
     /* Checks the solution */
     if ( check ) {
-        // hres = check_znorm( args, ChamHermitian, norm_type, uplo, ChamNonUnit, norm, descA );
+        hres = check_znorm_std( ChamHermitian, norm_type, uplo, ChamNonUnit, norm, N, N, A, LDA );
     }
 
     free( A );

testing/testing_zlansy.c

@@ -123,6 +123,7 @@ testing_zlansy_std( run_arg_list_t *args, int check )
     CHAMELEON_Complex64_t bump      = testing_zalea();
 
     /* Descriptors */
+    double norm;
     CHAMELEON_Complex64_t *A;
 
     bump = run_arg_get_complex64( args, "bump", bump );
@@ -137,13 +138,13 @@ testing_zlansy_std( run_arg_list_t *args, int check )
 
     /* Calculates the norm */
     testing_start( &test_data );
-    CHAMELEON_zlansy( norm_type, uplo, N, A, LDA );
+    norm = CHAMELEON_zlansy( norm_type, uplo, N, A, LDA );
     test_data.hres = hres;
     testing_stop( &test_data, flops_zlansy( norm_type, N ) );
 
     /* Checks the solution */
     if ( check ) {
-        // hres = check_znorm( args, ChamSymmetric, norm_type, uplo, ChamNonUnit, norm, descA );
+        hres = check_znorm_std( ChamSymmetric, norm_type, uplo, ChamNonUnit, norm, N, N, A, LDA );
     }
 
     free( A );

testing/testing_zlantr.c

@@ -146,6 +146,7 @@ testing_zlantr_std( run_arg_list_t *args, int check )
     int             seedA     = run_arg_get_int( args, "seedA", random() );
 
     /* Descriptors */
+    double norm;
     CHAMELEON_Complex64_t *A;
 
     CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb );
@@ -158,13 +159,13 @@ testing_zlantr_std( run_arg_list_t *args, int check )
 
     /* Calculates the norm */
     testing_start( &test_data );
-    CHAMELEON_zlantr( norm_type, uplo, diag, M, N, A, LDA );
+    norm = CHAMELEON_zlantr( norm_type, uplo, diag, M, N, A, LDA );
     test_data.hres = hres;
     testing_stop( &test_data, flops_zlantr( norm_type, uplo, M, N ) );
 
     /* Checks the solution */
     if ( check ) {
-        // hres = check_znorm( args, ChamTriangular, norm_type, uplo, diag, norm, descA );
+        hres = check_znorm_std( ChamTriangular, norm_type, uplo, diag, norm, M, N, A, LDA );
     }
 
     free( A );