Added missing MPI_Comm_free() call before MPI_Finalize()

Этот коммит содержится в:
David Addison
2024-02-05 08:53:54 -08:00
родитель 1292b25553
Коммит c6afef0b6f
+1
Просмотреть файл
@@ -1056,6 +1056,7 @@ testResult_t run() {
PRINT("# Avg bus bandwidth : %g %s\n", bw[0], check_avg_bw == -1 ? "" : (bw[0] < check_avg_bw*(0.9) ? "FAILED" : "OK"));
PRINT("#\n");
#ifdef MPI_SUPPORT
MPI_Comm_free(&mpi_comm);
MPI_Finalize();
#endif