/*---------------------------------------------------------------------------*/ na_return_t NA_Test_finalize(na_class_t *na_class) { na_return_t ret; unsigned int i; ret = NA_Finalize(na_class); if (ret != NA_SUCCESS) { fprintf(stderr, "Could not finalize NA interface\n"); goto done; } if (na_addr_table_size && na_addr_table) { for (i = 0; i < na_addr_table_size; i++) { free(na_addr_table[i]); } free(na_addr_table); na_addr_table = NULL; na_addr_table_size = 0; } #ifdef MERCURY_HAS_PARALLEL_TESTING na_test_mpi_finalize(); #endif done: return ret; }
/*---------------------------------------------------------------------------*/ na_return_t NA_Test_finalize(struct na_test_info *na_test_info) { na_return_t ret; ret = NA_Finalize(na_test_info->na_class); if (ret != NA_SUCCESS) { NA_LOG_ERROR("Could not finalize NA interface"); goto done; } free(na_test_info->target_name); free(na_test_info->comm); free(na_test_info->protocol); free(na_test_info->hostname); free(na_test_info->key); #ifdef MERCURY_HAS_PARALLEL_TESTING na_test_mpi_finalize(na_test_info); #endif done: return ret; }