guard calls to ncmpi_inq_malloc_xxx with #ifdef PNC_MALLOC_TRACE

Author: wkliao

test/largefile/high_dim_var.c

@@ -172,6 +172,7 @@ int main(int argc, char** argv) {
     err = ncmpi_open(MPI_COMM_WORLD, filename, NC_NOWRITE, MPI_INFO_NULL, &ncid); CHECK_ERR
     err = ncmpi_close(ncid); CHECK_ERR
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -181,7 +182,7 @@ int main(int argc, char** argv) {
             printf("heap memory allocated by PnetCDF internally has %lld bytes yet to be freed\n",
                    sum_size);
     }
-
+#endif
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
     if (rank == 0) {
         if (nerrs) printf(FAIL_STR,nerrs);

test/largefile/large_attr.c

@@ -32,10 +32,13 @@ int main(int argc, char** argv)
 {
     char filename[256], *name, *buf;
     size_t i;
-    int rank, nprocs, err, nerrs=0, verbose=0;
+    int rank, nprocs, err, nerrs=0;
     int ncid, cmode, varid, dimid;
     MPI_Offset nelems, inq_nelems;
     MPI_Info info=MPI_INFO_NULL;
+#ifdef PNC_MALLOC_TRACE
+    int verbose=0;
+#endif
 
     MPI_Init(&argc, &argv);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
@@ -316,6 +319,7 @@ int main(int argc, char** argv)
 
     free(buf);
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -333,6 +337,7 @@ int main(int argc, char** argv)
         printf("\n%d: PnetCDF internal memory footprint high water mark %.2f MB\n",
                rank, (float)malloc_size/1048576);
     }
+#endif
 
 err_out:
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);

test/largefile/large_coalesce.c

@@ -264,6 +264,7 @@ int main(int argc, char** argv)
 
     free(buf);
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -273,6 +274,7 @@ int main(int argc, char** argv)
             printf("heap memory allocated by PnetCDF internally has %lld bytes yet to be freed\n",
                    sum_size);
     }
+#endif
 
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
     if (rank == 0) {

test/largefile/large_dims_vars_attrs.c

@@ -30,8 +30,11 @@
 int main(int argc, char** argv)
 {
     char filename[256], str[32];
-    int i, rank, nprocs, err, nerrs=0, verbose=0;
+    int i, rank, nprocs, err, nerrs=0;
     int ncid, cmode, *varid, *dimids, intBuf[1];
+#ifdef PNC_MALLOC_TRACE
+    int verbose=0;
+#endif
 
     MPI_Init(&argc, &argv);
     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
@@ -131,6 +134,7 @@ int main(int argc, char** argv)
     free(varid);
     free(dimids);
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -148,6 +152,7 @@ int main(int argc, char** argv)
         printf("\n%d: PnetCDF internal memory footprint high water mark %.2f MB\n",
                rank, (float)malloc_size/1048576);
     }
+#endif
 
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
     if (rank == 0) {

test/largefile/large_header.c

@@ -101,6 +101,7 @@ int main(int argc, char** argv)
 
     err = ncmpi_close(ncid); CHECK_ERR
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -112,6 +113,7 @@ int main(int argc, char** argv)
             ncmpi_inq_malloc_list();
         }
     }
+#endif
 
 err_out:
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);

test/largefile/large_reqs.c

@@ -272,9 +272,11 @@ int tst_vars(char *filename, MPI_Comm comm)
 int main(int argc, char** argv)
 {
     char filename[256];
-    int rank, nprocs, err, nerrs=0, color;
+    int rank, nprocs, nerrs=0, color;
     MPI_Comm comm;
-
+#ifdef PNC_MALLOC_TRACE
+    int err;
+#endif
     verbose = 0;
 
     MPI_Init(&argc, &argv);
@@ -319,6 +321,7 @@ int main(int argc, char** argv)
 
     if (comm != MPI_COMM_WORLD) MPI_Comm_free(&comm);
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -328,6 +331,7 @@ int main(int argc, char** argv)
             printf("heap memory allocated by PnetCDF internally has %lld bytes yet to be freed\n",
                    sum_size);
     }
+#endif
 
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
     if (rank == 0) {

test/largefile/large_var.c

@@ -547,6 +547,7 @@ int main(int argc, char** argv)
     free(buf);
     MPI_Info_free(&info);
 
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size, sum_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
@@ -556,6 +557,7 @@ int main(int argc, char** argv)
             printf("heap memory allocated by PnetCDF internally has %lld bytes yet to be freed\n",
                    sum_size);
     }
+#endif
 
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
     if (rank == 0) {

test/largefile/tst_cdf5_begin.c

@@ -149,12 +149,14 @@ int main(int argc, char** argv) {
     if (nerrs) printf("fail with %d mismatches\n",nerrs);
     else       printf("pass\n");
 #else
+#ifdef PNC_MALLOC_TRACE
     /* check if PnetCDF freed all internal malloc */
     MPI_Offset malloc_size;
     err = ncmpi_inq_malloc_size(&malloc_size);
     if (err == NC_NOERR && malloc_size > 0) /* this test is for running 1 process */
         printf("heap memory allocated by PnetCDF internally has %lld bytes yet to be freed\n",
                malloc_size);
+#endif
 
     MPI_Allreduce(MPI_IN_PLACE, &nerrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
     if (rank == 0) {